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[TS AND TIPS 


Modes on Break 
Wordwise Paged Preview 
Safe COPY and COMPACT 
Colourful Remarks 
Trouble with PRINT 

Days in the Month 
Definition Highlighting 


Tenpin Bowling 


-<C> Computer 


Memo Pad 


SE 


Concepts 4984 


* Save entire text 
Load new text ` 
^ Save marked text 
Load text to cursor 
> Search and Replace 
oo Print text 
^ Preview text 
: Spool text 
? Segment menu 


(ESC. 


Edit Mode 


Please enter choice — 


Peartree Business System 


SAHPLECO LTD 


DATE 04/05-86 


STATEMENT GF ACCOUNT 


STATEMENT 70 


STATEMENT FROM 


F ,BLOGGS SAMPLECO LTD 

1 HIGH STREET SAMPLECO «QUSE 
NORLAND I 123 FORTH LANE 
SHEPTON BRAMBURY 
LANGS SUFFOLK 

EDS 9GH SBS ¿FG 


XOOOODOQQ00O0DCOCODDODDOCOODUOODDODODODODODOOCODGEEXEXEX EGXCEX XY SS EX XXX KE EXP 
Date i Invoice Value #. Credit ebit 

3XXOD000COOOOO00O0OOODOOGODOOOOCOODODDOOOOOCOOGOOCOGE XX XGOOCON S XX XXX XX XX XXX 

06/05/86 0000980081 240,00 +00 0.00 

ECE PSSST ESE SE SSE SECS STS SPST SSS Seer KKI ODORE KHK EENOEKE XXX AX YXX XX EE XXXX 


TOTAL BALANCE DUE 240,30 


Bas da 
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| The BASIC Editor 
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EDITORIAL JOTTINGS 


MAGIC MODEM 


Too late to mention in last month's magazine is the news 
that BEEBUG has arranged a special deal on the BABT 
approved Magic Modem. This was reviewed in BEEBUG 
Vol. 4. No. 9 and was rated very highly. At that time the 
modem had not received BABT approval. Now that this 
has been obtained we can thoroughly recommend this 
modem to members. It is very versatile with excellent 
controlling software written by Soft Machinery. The 
Modem may be used for accessing Prestel, Micronet, 
Telecom Gold, and the many bulletin boards now in 
operation. Full order details are contained in the 
supplement. 


COMPUTER SHOWS 

It was very pleasing to meet many BEEBUG members at 
the May Electron and BBC Micro User Show in London: 
The show was extremely busy at times, particularly on 
the first day. This indicates the continuing level of 
support and interest in Acorn's products. 


The Acorn User Show at the Barbican Centre will be 
taking place this July (24th-27th) and we shall have a 
large stand there with all our own products and many 
others besides. As with the Micro User Show, we have 
arranged a special discount on the entry price for 
BEEBUG members (see supplement) so why not come 
and meet us at what promises to be the major show for 
the BBC micro and Master series this year. 


CLASSIFYING REVIEW PRODUCTS 

Several members have suggested recently, prompted we 
suspect by the appearance of the Master series, that we 
classify products we review in the same way that we do 
for programs published in BEEBUG so that it is clear on 
what systems any particular product will work correctly. 
We are introducing this idea in this issue using the same 
symbols as for software. However, instead of the 
distinction between Basic I and Basic II we shall just use a 
letter 'B' to represent the model B. Let us know if we can 
improve further on this. | 


PROGRAM CLASSIFICATION 

All programs in the magazine, and on the magazine 
cassette/disc, are marked with the symbols shown below. 
An uncrossed symbol indicates full working, a single line 
through a symbol shows partial working for that 
configuration (normally some modifications will be 
required), and a cross through a symbol indicates a 
program that will not work on that type of system. There 
is a symbol for the B-- which includes the 128K version, 
and a symbol for the new Master series. 


Basic 1 Electron 
Basic II Disc 

Tube Cassette 
Model B4- Master 128 


MAGIC APPROVAL 


Datastar's Magic Modem, 
which received a rapturous 


review in  BEEBUG Vol.4 
No.9, has now been granted 
BABT approval. Datastar 


says that the controversial 
approval process has taken 
five months and cost the 
company more than £10,000. 


The Magic Modem is the 


modem that BEEBUG has 
taking under its wing as 
the 'BEEBUG modem' and it 


is available to members at 
the special price of £199 
including software on ROM. 
Details in the  BEEBUG 
Retail price list. 


It is not often that 
gardening is considered on 
these pages but RAE 
Associates has 
together computers and this 
most popular hobby. The 
Planter's Guide is a 
dedicated database program 
for the BBC micro that will 
help you to plan 
garden better, saving you 
time and money. The package 
will help you in choosing 
which plants to position in 
each area of your garden 


brought 


your 


according to the conditions 
there. 


The Planter's Guide 
Pack was originally devised 
for professional use at a 
garden centre but is now 
available for amateur 
green-thumbs for £14,95, An 
accompanying book giving a 
detailed description of 
each plant covered is also 
available for £8,95, 
Further details from the 
publishers RAE on 9923- 
32199, 


MORE MOLE . 


The excellent 'Secret Diary 
of Adrian Mole' game from 
Mosaic Publishing (see 
BEEBUG Vol.4 No.8) has been 
given a sequel - The 
growing pains of 
Mole'. Based on the second 
Adrian Mole book by Sue 
Townsend, this latest game 
costs £9.95 from Mosaic on 


91-226 0828. 


MEMORY MAPS 


Two new computer aided 
learning packages will help 
pupils get their bearings. 
General Map Reading and 
Coastal Map Reading are two 
packages that make full use 
of the  Beeb's graphics 
capabilities to teach this 
subject in a interesting 
interactive way. The two 
programs are available for 
£23 each from their 
producers, Soft Teach, on 
90985-40329, 


TICK TACK 
This multi-linqual 
letter writing package 


referred to in last month's 
news is currently available 
only from the original 


Adrian 


producers, Primrose Pub- 
lishing, and not from 
Peartree Computers who 


supplied the press release 
on which last month's 
report was based. Primrose 
are on 0763-82512. 


THE LAST WORD? 


Norwich Computer Services 
and Computer Concepts have 
joined forces to produce 
the 'Complete Wordwise Plus 
Handbook". Written and 
published by Paul Beverley, 
this provides over 400 
pages packed with useful 
information, including over 
60 .Wordwise Plus segment’ 
programs. The book costs 
£17.50 inclusive of post & 
packing direct from Norwich 
Computer Services, and 57 
of the programs are 
available separately on 40 
or 80 track disc for £7.50, 
Norwich Computer Services 
are on Ø6Ø3-621157. 


RAMROD LAUNCHED 
Ramrod, the latest 
software release from 


Clares Micro Supplies, is 
now available on ROM (£40) 
or disc (£35). Designed to 
work alongside Clares' Brom 
Plus to provide a 
sophisticated programming 
and debugging environment, 


Ramrod offers a com- 
prehensive range of 
utilities claimed to be 


fully compatible with all 
machines from the model B 
to the Master Turbo, Ramrod 
includes commands dealing 
with both DFS and ADFS, 
with shadow RAM, sideways 
RAM, and the Master's 


private RAM, with the Tube, 
For 
information contact 


"uel 


and many more besides. 
more 
Clares on Ø6Ø6-48511. 


The Magic Boot 


The Magic Modem allows 
both auto-dial and auto- 
answer, and comes packaged 
with the CommSoft terminal 
ROM, allowing easy access 
to both scrolling text and 
Viewdata formats. This 
Software has a set of 
commands which allow the 
user to directly control 
the modem. 


The following program 
makes use of these commands 
to give the user a booted 
menu from which he can 
select at a keypress, any 
particular service which he 
chooses to access. The menu 
then calls up an EXEC file 
which first sets the modem 
to the correct protocol, 
dials the number, and 
issues any required 
passwords etc. 


The last menu option 
sets the function keys to 
give single key control as 
follows: 


fØ Set TEXT format with 
5 line user window 

fl 12ØØ/75 Originate 

f2 12ØØ/75 Answer 

f3 300/300 Originate 

fA | 300/300 Answer 

£5 Set Viewdata format 


at 1200/75 Originate 


As the program stands 
there are 6 EXEC files 


.Micronet page etc. 


. with 


' called by the menu program. 


Their names are obvious 
from the last few lines of 
the Menu. These particular 
files were created on 
Wordwise, but you may 
alternatively use the 
*BUILD command. As an 
example, three of the EXEC 
files are listed below. The 
ones for Prestel, Maplin, 
and the function keys 
respectively. 


The first line of the 
Prestel file calls up the 
CommSoft ROM, the second 
sets the Viewdata standard 
(see the manual for 
details), the third dials 
the number (901-618-1111 for 
the London area), and the 
fourth gives both customer 
number ‘and password. A 
fifth line could be used to 
select a particular 
Each 
line ends with a Return, 
and you should have a blank 
line or two at the end of 
the file. 


The Maplin file differs 
in that line two sets up 
the Text rather than the 
Viewdata standard, and no 
customer number or password 
is required. 


In the function key 
file, the keys are set 
before calling the CommSoft 
ROM, and once inside the 
ROM, the keys are activated 
Ctrl plus the chosen 
key. 


19 REM PROGRAM MAGIC B 
OOT 

20 REM VERSION BØ.5 

30 REM AUTHOR D.E.G. 

40 REM BEEBUG JULY 1986 

50 REM PROGRAM SUBJECT 
TO COPYRIGHT 

60 : 

100 MODE7 

118 PRINT' 

120 PRINTCHRS131;CHR$14 
14" MAGIC MODEM BOOT" 


` 13Ø 
1;" 
149 
150 
ESTEL 
160 
170 
ESTEL 


PRINT'' 


DRYDEN" 
PRINT 


ENTERPRISE" 
180 PRINT 
190 PRINT 

E GNOME" 
200 PRINT 
210 PRINT 

CHNOMATIC" 
220 PRINT 
230 PRINT 

PLIN" 

240 PRINT 
250 PRINT 

NCTION KEYS 
260 PRINT 
270 A=GET-48 
280 IF A-] THEN 

o DRYDEN 
290 IF 

ə ENTPRIS 
300 IF 

» GNOME 
310 IF 

. TECHNO 
320 IF 

.MAPLIN 
330 IF 

|. KEYS 


ONLY" 


A=2 THEN 


A=3 THEN 


A=4 THEN 


A-5 THEN 


A=9 THEN 


PRINT CHR$134"2. 
CHR$134"3, 
CERO: 
CHR$134"5, 


CHRS134"9. 


* EXEC 
* EXEC 
* EXEC 
* EXEC 
* EXEC 


* EXEC 


PRINTCHRS131 ;CHRS14 
MAGIC MODEM BOOT" 


PRINT CHRS134"1. PR 


TH 


TE 


FU 


E 


E 


E 


E 


340 IFA»0 AND A«6 OR A- 


9 THEN END 
350 RUN 


E -DRYDEN: 


*COMM. 
~2AC5,1 
73016181111 


12345678904444 


E e MAPLIN: 


*COMM. 
730702552941 


E.KEYS: 


*KEYØ 
*KEYI 
*KEY2 
*KEY3 
*KEY4 


"«|M^AS1,6|M 
"AC5,1|M 
7AC5,2|M 
7AC5,3|M 
7AC5,4|M 


*KEY5 7; |MTAC5,1|M 


*COMM, 


oO 


ames Fletcher shows how a teletext 
adaptor cam open the door to a whole 
host of new things to do with your 


Previous issues of Beebug have given a 
good deal of information about teletext 
adaptors that are available for the BBC 
micro.  Acorn's unit was reviewed in Vol.2 
No.1Ø, while Vol.4 No.1Ø not only reviewed 
the Morley teletext ` adaptor and its 
associated software, but also gave an 
up-to-date explanation about the broadcast 
teletext services and about the 
downloading of Telesoftware. 


Acorn and the BBC always planned for 
the BBC micro to make good use of the 
broadcast teletext services, and for quite 
a while Acorn has had the field to itself, 
with a teletext adaptor that plugs into 
the  IMHz bus. Unfortunately, this 
originally cost around £225, so that very 
few non-business users felt able to afford 
it, although a good many schools found it 
worthwhile. The last few months have, 
however, seen the introduction of 
alternative ` decoders from other 
manufacturers, and this has had the effect 
of bringing down prices. An Acorn adaptor 
could recently be obtained as a 
'special-offer' for around £70, and Morley 
Electronics and Volex are also offering 
their own designs at under £190. 


as displaying teletext pages 
containing information such as news and 
weather forecasts, all the adaptors also 
allow you to download free software which 
is transmitted on special teletext pages, 
the service being known as Telesoftware. 
These computer programs are usually trans- 
mitted in a compacted form of BBC Basic. 
Since its inception, Telesoftware has 
become more sophisticated with more auto- 


As well 


mation and faster access, as well as sub- 
stantially broadening the scope of what is 
on offer. Now, with a choice of relative 
cheap teletext  adaptors available to the 
user, the only real problem for the en- 
thusiast is deciding which decoder to buy. 


All of the adaptors use a ROM plugged 
into the BBC, but for some reason best 
known to themselves Acorn chose to make 
Telesoftware a separate filing system 
(known as Telesoft) which makes life 
fairly complicated at times, Having loaded 
a program from a Telesoftware page you 
then have to change to the disc filing 
System before you can save it, and then 
change back to the Telesoftware filing 
system before you can download the next 
item. Because the Acorn ROM was the first 
Telesoftware system to become available 
it is now showing its age, and you have to 
run a Software patch (itself available via 
Telesoftware) before using it to download 
the latest software. 


Once you have an adaptor, you can look 
at the teletext pages on Oracle and 
Ceefax, and you can also try your hand at 


HOURS Bb 


Shanklin ísesbraumnru 


Å 7 S P SERS 


1:3 ?2:9:12:153:18: 


Example of output from Telesoftware program compiling a weather database. 


D Fe No å QU OS =u Q0 Ø 


downloading some of the free software. The 
BBC provide a regularly changing selection 
of programs on a weekly basis on BBC2, but 
although the IBA claims to be supporting 
Telesoftware there is in fact very little 
material currently available, although 
great things are promised for the future. 
Page 700 on BBC2 Ceefax acts as an index 
to the BBC service, and page 460 on 
Oracle's Channel 4 service gives you some 
indication of the very limited material 
currently available on this channel. 


One exciting new development means that 
you can now not only download software, 
but then use that software to access data 
on other teletext pages. You can also 
write your own programs to automatically 
extract data from teletext pages. One 
example of the use of this technique 
appears in a recent program from the BBC 
which allows your computer to look at the 
weather pages on Ceefax every day. It 
automatically takes the live data and 
plots graphs to show maximum and minimum 
temperatures, hours of sunshine, inches of 
rain, and thus you can automatically build 
up, for most parts of the country, a 
database of weather information, which can 
be recalled from disc at will, 


Telecon | 


n 81 


TIME (DAYS? (Tue,12th.,Hov,95 to Mon. 12th. May, 06) 


Example of output from Telesoftware program plotting share movements. 


Such databases can be made up 
automatically from any regular teletext 
page, so that you can keep a check on how 
your favourite football team is doing or 
you can show how the price of fish is 
changing in the shops from day to day. One 
facility that will appeal to any of you 
who have even modest holdings of shares is 
that it is possible to monitor the 
performance of your shares on the 
Stock market day by day, and to have a 
graph plotted automatically each day, so 
that you can decide just when to sell or 
buy those Acorn or British Telecom shares! 


You can even make up your own 
electronic cookery book with the aid of 
the Ceefax  'Recipes' program. 
this program automatically calls up page 
191 of Ceefax, which carries a two or 
three page recipe for a different dish 
every day of the week. The recipes are 
stored on disc in a convenient database 
format which allows you to browse through 
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Each day 


up to about 180 different dishes. Having 
made your choice for the day, you can 
print out the instructions, or even a 


shopping list of the ingredients, merely 
by pressing the Copy key. 


Another simple program 
print out any chosen teletext page, so 
that you really can use your computer to 
provide an up to the minute newspaper. Who 
knows, perhaps you could save the cost of 
the adaptor by not buying a daily paper! 
CEEFAX have also started to provide their 
own text files for school teachers, via 
Telesoftware, giving details of all their 
schools broadcasts, and fans of the tele- 
vision programme Micro Live may be inter- 
ested to download pages of supplementary 
information about the programme each week. 
Other programs allow you to print out 
automatically a complete index of the 
hundreds of pages available on Oracle and 
CEEFAX, much easier than olodding through 
the on-screen indexes one at a time. 


allows you to 


Potential decoder purchasers should 
note that many of these exciting database- 
type programs will, at the moment, only 
work with the Acorn adaptor, since some of 
the commands used are specific to this 
unit and its inbuilt Telesoft filing 
system. Seasoned BBC micro programmers 
will have no real troubles modifying the 
Ceefax programs to work on the other 
adaptors, which do have some real 
advantages in programming flexibility over 
the Acorn unit. However, if you are a 
beginner and you want to use the 
'interactive' type of Telesoftware, you 
would be better off with the Acorn unit. 


The use of teletext is growing 
steadily. Whilst it can never give you the 
versatility of a telephone-line based 
system like Micronet, there are no further 
charges once you have bought the 
equipment. Now that this initial cost has 
been much reduced, more people may be 
encouraged to investigate this form of 
communications, and the more people that 
show an interest in Telesoftware the more 


effort the broadcasters will put into this 


ar finger tips to store 
information for later 


How often have you been working at the 
computer when the need to make a note of a 
line number, message for your wife, value 
of a variable or whatever arises? Why hunt 
for that piece of paver when you are 
sitting at a keyboard and can simply call 
up a note-pad onto the screen! 


This utility allows you to do just 
that. Any time that you are in mode 7 
command mode, pressing Ctrl-Shift-P puts 
up a note-pad in the bottom right hand 
corner of the screen, giving you a 
non-scrolling writing area of 12 lines of 
16 characters. The pad appears in red, 
with text in yellow, but you may use Shift 
with the function keys to colour the text 
differently, and the normal  Ctrl-VDU 
controls are also still active. Thus you 
may clear the memo vad with Ctrl-L, and 
move the writing cursor around with 
Ctrl-H, I, J and K. 


When your note has been made, pressing 
Escape will cause the pop-up memo to 
disappear, and the original screen 
contents to be restored. When you want to 
see your notes again, just press 
Ctrl-Shift-P, and they will re-appear. The 
memo can also be accessed from the 
Wordwise Plus menu screen. Just type ':' 
before ` pressing Ctrl-Shift-P. This 
combination is used to avoid any conflicts 
with other Wordwise Plus functions and you 
are unlikely to encounter any problems. 


To get POPUP running, simply tyoe the 
listing into your machine, and save it 
away 


run, and debugged, you can save away the 


"M Please enter choice 


before running it. Once it has been. 


machine code copy by typing the following: 
*SAVE POP 900 +FF 
You can call this version any time from 
disc with: 
*POP 
or from cassette with: 
*RUN POP 
and once again, Ctrl-Shift-P will call up 
the memo. 


Alternatively if you save it with: 
*SAVE POP 900 +FF 90B 
then the command *POP (or *RUN POP) will 
not only install the memo pad but will 
call it on screen as if Ctrl-Shift-P had 
been issued. 


Any memos that you write on the system 
can also be saved as follows. Firstly, 
Escape from the pad itself, then type: 

*SAVE MEMO AØØ+FF 
To load this back in from disc or 
cassette, again get into Basic command 
mode by pressing Escape if you are in the 
memo pad, and type: 

*LOAD MEMO 
Now Ctrl-Shift-P will display what you 
have saved; and any number of separate 
memos may be saved with this method. And 
because the pad supports full Teletext 
codes, you could prepare mode 7 pictures 
within the pad, and save them as memos. 
The possibilities are endless. 


For sideways RAM owners the program is 
even more versatile. Instead of the 
notepad being stored in vulnerable user 
RAM it can be stored in sideways RAM, and 
will remain there until the machine is 
switched off, or forever if you have 
battery backup. The modifications needed 
for this option are given at the end of 
the listing. And using the details given 


«C» Computer Concepts 1984 


Save BRT FS] text 
Load new text: 
Save marked text 
Load text to cursor 
Search. and Replace 
| Print text. : 
2, Preview text 
: Spool text 
c Segment menu 


Esc Edi t-Mode - 


Book holiday. ` 


in Bernard Hill's series (BEEBUG Vol.5 Nos 
2 and 3) it should be a simple matter to 
put the whole program into sideways RAM so 


that it can be called with a * command 
just like a ROM facility. 


Other possible extensions include its 
use to recall function key settings, 
operating system addresses, useful 
telephone numbers; the list is endless. 


The routine works by intercepting the 
read character vector, and can be used 
either in immediate mode or from within a 
user's own program. It may be called from 
within a host program either by the 
instruction CALL popup (CALL &9ØB) or by 
issuing Ctrl-Shift-P from the keyboard 
during an INPUT statement. This should be 
done at the beginning of an input entry in 
order to avoid any loss of characters. 


The listing is liberally sprinkled 
with comments, and needs little further 
explanation, but here are a few points to 
note. 


1, If Break is pressed the vectors are 
reset. Popup can be restored by typing: 
CALL &900 


2. The addresses used in the listing for 
both program storage and memo buffer are 
suitable for disc users. Cassette users 
should move them to somewhere suitable 
such as &CØØ for the program (currently 
&900) and &DØØ for the buffer where the 


memo is stored (currently  &A00). To do 
this alter lines 1060 and 1120 
accordingly. 

3. It is not recommended that you press 


Ctrl-Shift-P while in the notepad itself; 
recursive pop-ups are unpredictable! 


4. Although the routine saves the cursor 
position before entering the poo-up memo, 
it does not save any text window that may 
be in use at the time. This is not hard to 
do, but has not been implemented in order 
to keep the program within one page of 
memory. 


5. When you first call POPUP you may find 
that the screen is not clear. This is 
because the buffer soace used for storing 
memos has been used by some other program 
(such as one of the ROMS in your machine). 
Simply clear it with Ctrl-L. 
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6. Although the cursor keys are not 
disabled when in the memo pad, they should 
not be used; and as a side effect, if you 
press one of the cursor keys followed by 


Return, you will enable scrolling of the 
memo pad. 


7. If you wish to change the key which 
calls the pop-up memo, then alter line 
1800 of the program. If, for example, you 
wish to use '@' instead of Ctrl-Shift-P, 
then line 1800 should be change to: 

1800 CMP #64 


8. To alter the initial colours of the 
memo-pad, lines 1360 (background) and 1389 
(foreground) should be changed. To give 
blue on cyan, these lines should be 
altered as follows: 

1360 LDA#134:STA buffer,X:INX 

1389 LDA#132:STA buffer,X 


19 REM PROGRAM POP-UP MEMO 
20 REM VERSION BØ.2 
30 REM AUTHOR M.E.WILLIAMS 
40 REM BEEBUG JULY 1986 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

199 MODE7 

118 PROCassemble 

120 CALL setvector 

130 END 

140 : 

1999 DEFPROCassemble 

1010 osbyte=&FFF4 

1920 oswrch=&FFEE 

1930 osasci=&FFE3 

19409 osrdch=&FFEØ 

18050 WRCH=!&2ØE AND &FFFF 

1969 buffer-&A00 

1979 screen-&70 

1989 store=&72 

1090 temp-&74 


1119 FOR PASS =Ø TO 3 STEP 3 
1120 P$-&900 : REM or wherever 
[OPT PASS 

1148 .setvector N modify wrchv 
1150 LDA #testcharacter MOD 256 
1160 STA &20E 

1170 LDA #testcharacter DIV 256 
1180 STA &20F:RTS 


1206 .popup 

1210 LDA &319:PHA 
osition 

1220 LDA &318:PHA 

1230 JSR init 

1240 JSR swap 


N save cursor p 


Or 


1250 JSR print 
1268 JSR swap 
1270 LDA #26:JSR oswrch N default wind 


OWS 


1280 LDA #31:JSR oswrch N restore curs 


1298 PLA:JSR oswrch 

1300 PLA:JSR oswrch 

1319 LDA #Ø:STA &D0:JMP oswrch 

1320 : 

1330 „init 

1340 LDX #9 

1350 .box N poke in colour codes. 
1360 LDA #129:STA buffer ,X: INX 

1370 LDA #157:STA buffer,X:INX 

1380 LDA #131:STA buffer,X 

1390 TXA:CLC:ADC #17:TAX:BCC box 
1400 .window 

1418 LDX #4 

1420 .windl 

1430 LDA windowdata,X:JSR oswrch 
1440 DEX:BPL windl 

1450 LDA #19:STA &DØ N disable scroll 
1460 RTS 

1470 : 

1480 .swap 

1499 LDA &350:CLC:ADC #&1D:STA screen 
1500 LDA &351:ADC #2:SEC:SBC #&7C:AND # 
3:CLC:ADC #&7C:STA screen+] | 
1510 LDX #12 N number of lines 
1520 LDA #buffer MOD 256:STA store 
1530 LDA #buffer DIV 256:STA store+] 
1540 .nextline 

1550 LDY #@:LDA #19:STA temp 

1560 .push LDA (screen) ,Y 

1570 : 

1580 : 

1590 PHA 

1600 : 

1610 LDA (store),Y:STA (screen),Y 
1620 PLA:STA (store),Y:INC store 
1630 DEC temp:BEQ doneline 

1640 INC screen 

1650 BNE push 

1660 INC screen+1:BPL push 

1679 LDA #&7C:STA screen+1:BNE push 
1680 .doneline 


1690 LDA #22:CLC 

1700 ADC screen:STA screen 

1719 LDA #0 

1720 ADC screen+1:STA screen+1 
1730 BPL notbasic \ not yet &8000 
1748 LDA 4&7C:STA screen+ 

1750 .notbasic 

1760 DEX:BNE nextline 
1770 RTS 

1789 : 

1790 .testcharacter 
1880 CMP #16 \ ctrl P 
1810 BNE notme 

1820 PHA 

1830 LDA &355:CMP #7 
1848 BNE notmel 

1850 PLA 

1860 LDA#129:LDX#255:LDY#255:JSR&FFF4:C 


N Mode 7 ? 


PY#255:BNE notme 


1870 JMP popup 
1880 .notmel PLA 
1890 .notme 
1999 JMP WRCH 
1910 : 

1929 .print 
1930 JSR osrdch 
1948 BIT &FF:BPL noesc 

1950 LDA #&7E:JMP osbyte 

1960 .noesc 

1970 JSR osasci 

1980 JMP print 

1990 : 

2000 .windowdata  BRK 

2010 ] 

2020 !windowdata =&1818279D 

2Ø3Ø windowdata?4=28 

2040 NEXT PASS 

2050 ENDPROC 

2060 : 

2070 REM For sideways ram buffer 

2080 REM store-&F6 

2099 REM buffer=somewhere above &8000 
2100 REM 1570 TXA:PHA 

2110 REM 1580 LDY #15:JSR osrdrm 

2120 REM 1590 LDY #9:STA (screen),Y 
2130 REM 1600 PLA:TAX ` 


N wrch routine in BASIC 
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ng for an integrated business 
pri for the BBC micro? Simon 
kran author of "The BBC Micro 

? he Small Business? has been 
ig out Peartree's Main Business 


Product 
Supplier 


: Main Business System 

: Peartree Computers 

: Falcon House, High Street, 

: Huntingdon, Cambs PE18 6SS. 
: Tel. 0480-50595 

Price : £99.95 (2 discs and manual) 

Despite something of a glut of word 

processors, databases and spreadsheets for 
the Beeb and Master, recent surveys have 
shown that after word processing, the most 
popular use of a micro in business is 
accounting. This is quite understandable, 
especially when you know how much work is 
involved in filling in VAT returns or 
preparing books for audit. 


Until recently, there haven't been 
many accounting suites on the BBC Micro, 
and those that have surfaced cost several 
hundred pounds for a set of ledgers. This 
new suite from Peartree Computers, though, 
offers Sales, Purchase and Nominal 
ledgers, Invoicing, Stock Control, Bank 
and Petty Cash Control and Pro-Forma 
Quotations all for just under £100, 


The suite, referred to as the ‘Main 
Business System' (MBS) was developed for 
Peartree's own business micros, which are 
BBC B+ or Master circuit boards reboxed to 
look like ‘real’ Personal Computers. 
Shadow RAM is essential to run MBS as it 
works entirely in mode Ø. Your system will 
also need twin 80 track discs, unless you 
enjoy swapping discs frequently. 


What do you get for a hundred pounds? 
At first sight, not a lot. The impressive 
inch-thick box houses two discs and a thin 
spiral bound manual. This proves to be 
very well written, but just as thin on 
information as it looks. It's all very 
well to maintain that the programs are 
'user friendly', and indeed they are in 


most respects, but they still need more 
than 35 pages to.describe adequately. 


When you first run the program, you 
have to enter the details of your company 
and a password to use the system. The MBS 
records the name and address and uses it 
to head invoices, receipts and the like. 
Once set, you subsequently have to enter 
the password, date and time before the 
suite will run. The time is displayed 
continuously while you're at the main 
menu, although not within all the modules. 


Each screen is laid out very clearly, 
making full use of the space available on 
the 80x32 display. All headings and menus 
are outlined with separate boxes which 
makes them easy to read. 


The main menu offers ll options, plus 
exit to Basic or View. These options are 
the names of each of the modules within 
the system. Before using the suite, 
though, you have to create records on your 
discs to take the data. You'll need a 
blank formatted disc for data (not 
mentioned in the manual). 


MBS allows you to select the number of 
records you create for each of its modules 
except Stock Control, which is 
automatically assigned 900 records. You 
can also specify the drive they're put on. 
The table below shows the maximum numbers 
of records that can be handled by the 
various files. If necessary, transaction 
files could hold the records for 
particular periods, e.g. for a month or a 
quarter. 


Maximum Size 
Customer 750 
Purchase Order 750 
Sales Ledger 1300 


File 


Nominal Ledger 600 


Invoicing/Credit 139 
Pro Forma Å 13Ø 
Bank A/C 225 
Petty Cash 225 
Stock Control 900 


Once your records are created, you can 
start to use the programs in earnest, Each 
module prompts you as you enter selections 
or figures, and double-checks on deletions 
and modifications to existing data. 


First you need to enter details of all 
items you hold in stock, your account 
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customers and suppliers, and Nominal 
Ledger categories. This will take quite a 
bit of typing, but once complete, you 
should find the automation provided by MBS 
speeds transactions considerably. 


Invoices and statements can be printed 
at the press of a few buttons, and you can 
produce aged creditor lists, VAT analyses 
and stock valuations very easily. One 
notable exception to this list of features 
is a 'suggested payments' list. If you're 
keen to keep your money in the bank as 


long as possible, it's very useful to know 
which creditors you can afford to stall. 


You can specify your own account names 
in the Nominal Ledger, and postings can 
then be made from the Sales and Purchase 
Ledgers. You'll need to draw up a cross 
reference list of account names and their 
numbers, but it's probably quicker to use 
numbers than the equivalent names. 


End of term calculations (whatever the 
period) are made automatically, which is 
very useful for auditing and keeping the 
tax man happy. Once any of the ledgers are 
closed you have to reset them for use in 
the next period. This is an essential 
safeguard in electronic bookkeeping. 


A separate printing section within the 


Nominal Ledger module produces a number of ` 


useful printouts, including trial 
balances, monthly and yearly reports, and 
even line and bar graphs. 


The ` Stock Control module is well 
integrated into the ledgers, and sales and 
purchases will automatically update stock 
levels if requested. Similarly, entering 
stock item numbers or customer numbers in 
the sales or purchase ledgers will call up 
all relevant details from the Stock 
Control or Customer Database modules. 


Even though all your main stock may be 
detailed in the Stock Control module, you 
can still buy or sell individual items and 
put them through the ledgers. You can also 
produce  pro-forma quotations for one-off 
sales or contracts. | 


The Customer Database takes details of 
all your account customers. It can include 
contact names, standard discounts, credit 
limits and day's grace for payment. This 
last piece of information is added to the 


botton of 


invoices and statements in the 
usual 'business terms' message. 


So much for the good features. The MBS 
is solid Basic programming, is 
comprehensive in scope and should be 
adeguate to handle the accounts of many 
small businesses. There are a number of 
oddities, however, which make using it 
less of a pleasure than I imagine its 
creators intended. These problems range 
from trivial to annoying. 


One problem is the lack of consistency 
between modules. As an example, MBS uses 
numbers, the letter 'R' and the hash 
symbol (#) to return to the same main menu 
from different modules in the system. 
While this is clearly indicated in each 
case, it does leave an overall feeling of 
bittyness. There are also a number of 
spelling mistakes on-screen (three on one 
Screen alone), and the print routines 
annoyingly insist on issuing a form feed 
before printing anything. This wastes a 
sheet of paper each time. 


When you create records on disc, MBS 
always creates one more than you've asked 
for. Most of the programs use *SH. to 
switch on shadow memory. This clashes with 
the AMX Art ROM and generates an error if 
the AMX chip isn't first disabled. These 
may all seem trivial points, but if you're 
paying a hundred pounds, you expect the 
programs to have been thoroughly tested. 


More annoying is the lack of editing 
on any of the data entry screens, This 
means if you have entered all the details 
of a stock item, for instance, and then 
notice a mistake, you have to re-enter all 
the information again - you can't just 
alter the relevant field. 


The program refuses to let you create 
less than 900 stock records. This wouldn't 
be a worry, except that when you are 
searching for a stock item the MBS looks 
through the whole file. This is true even 
if only five records exist in the file. 


In conclusion, the Main Business 
system should be the answer to a lot of 
requests from small business users, There 
are several features which detract from 
its friendly intentions, but it will still 
do what it sets out to. 
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Jan Stuurman concludes his intro- 
duction to computer simulation by 
looking at that popular pastime, 
queueing. Now you can get your com- 
puter to queue for you by writing a 
simulation program. 


Queues | seem to be an inescapable 
ingredient of modern life. Hardly a day 
goes by in which we do not have to join a 
queue somewhere. Wherever a service is 
provided, be it the bus, the supermarket 
checkout or when we visit our G.P., queues 
abound everywhere, For we that have to 
join them, and for those providing the 
service, queues are wasteful in terms of 
both time and money. Long queues usually 
lead to a loss of customers and facilities 
for waiting customers, e.g. parking spaces 
or waiting rooms have to be provided. A 
good understanding of queues is therefore 
important when looking for ways to improve 
service or planning new services. 


THE EXPONENTIAL DISTRIBUTION 

In many situations where queues are 
forming, the time between the arrival of 
customers (the inter-arrival time) and the 
time it takes to service a customer is 
random, However, unlike the Normally 
distributed random numbers that we looked 
at last month, we now find that most of 
the random numbers should be small with 
larger numbers becoming less frequent. 
This reflects the fact that most customers 
can be serviced relatively quickly, but 
now and again a customer requires a longer 
service time, Instead of the Normal 
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distribution, .another, known as the 
Exponential distribution, is found to have 
characteristics ` which match well with 
reality. The demonstration program lets us 
compare the theoretical curve of this 


distribution with a bar graph of random 
numbers produced by the function FNexnon. 


The shape of any particular Expo- 
nential distribution is described by a 
parameter called LAMBDA. Curiously, both 
the mean and standard deviation of an 
Exponential distribution are equal to 
l/LAMBDA, If LAMBDA is small, the random 
numbers are more spread out and their mean 
is larger. As with the Normal distribut- 
ion, almost all numbers of an Exponential 
distribution lie in an interval about the 
mean. The demonstration program considers 
a range from zero to approximately 8 times 
the standard deviation and 99.97% of the 
numbers generated by FNexpon fall within 
this range. 


19 REM EXPONENTIALLY DISTRIBUTED RAND 
OM NUMBERS 
20 REM Version B.1 
30 REM Author Jan Stuurman 
40 REM BEEBUG 
59 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
199 MODE! 
119 ON ERROR GOTO 2300 
120 PROCinit 
130 PROCdemo 
140 END 
15d : 
1999 DEFPROCinit 
19108 LOCAL I$:DIM bar$ (31) 
1020 CLS:PRINTTAB (3) "Exponential Distri 
bution Sampling" 
1939 REM SET-UP GRAPH AREA & AXES 
1040 VDU24,0;0;1279; 799; 
1050 VDU29,160;64; 
1969 GCOLØ,3 
1979 MOVE-144 ,Ü: DRAW1024 , 0 
1989 MOVEO,0: DRAWO , 799 
1999 FOR I$-0 TO 1024 STEP 128 
1199 MOVEI$,4:DRAWIS$,-4 
1118 NEXT I$ 
1120 FOR I$-0 TO 720 STEP 120 
1138 MOVEA,IS:DRAW-4,I$ 
1140 NEXT I$ 
1150 ENDPROC 
1160 : 
1200 DEFPROCdemo 
1219 PRINTTAB (0,3) "Average inter-arriva 
1 time (>Ø)" 
1220 REPEAT PRINTTAB (31,3); SPC (9); STRIN 


GS (8,CHR$127) ; : INPUT" intertime 


13 


1238 


UNTIL intertime»0:lambda-l/interti 


me 

1240 PRINTTAB(0,4)"Total number of arri 
vals (>99)" 

1250 REPEAT PRINTTAB (31,4) ; SPC (9) ; STRIN 


GS (8,CHRS127) ; INPUT ""samplesi ze% 


1260 
1270 
1289 
1290 
1300 
1319 
132Ø 


UNTIL samplesize%>99 

REM LABEL AXES 

VDU5:83%=3 
hsteo-INT (6, 2*intertime+t1)DIV8+1 
FOR I$-0 TO 8 

label%=hstep*I% 
MOVEI3*128-48+32*(label%<10),-24:P 


RINT1abel$ 
1330 NEXT I$ 


1559 
1560 
1570 
1580 
1590 
1600 
2100 
2110 
2120 
2200 
2210 
PROC 
2220 
2230 


y= (newF-oldF) *samplesi ze3*8 
oldF=newF 
PLOT69 , 13, y*120/vstep 

NEXT I$ 

ENDPROC 


° 
° 


DEFFNexpon (LAMBDA ,CDFVAL) 


==LN (1-CDFVAL) /LAMBDA 


DEFPROCbargraph (interval?) 
IF interval%<Ø OR interval%>31 END 


LOCAL xleft,yton 
barb (interval%)=bar%(interval%)+1 


1340 


vstep=samplesize%* (1-EXP (-lambda*h 


step/4) ) /4 


1356 
1369 
1370 
1380 


FOR I$-1 TO 6 

label$-INT (vstep*I%+.5) 
MOVE-144,1$*120-8: PRINT labe1% 
NEXTIS$ 


rrival tim 
imber of arrivals £599 


1390 VDU 19,2,4,0,0,0:GCOL1,2 | 
1400 REM FIND RANDOM INTER-ARRIVAL TIME 
S AND UPDATE BAR-GRAPH 

1419 FOR customer-l TO samplesize% 

1420 exponrnd=FNexpon (lambda ,RND (1 ) ) 
1430 PROCbargraph (INT (exponrnd*4/hstep) 
) 

1440 NEXT customer 

1450 REM DRAW THEORETICAL EXPONENTIAL C 
URVE 

1460 PROCexponcurve 

1470 VDU4 

1480 ENDPROC 

1490 : 


1500 DEFPROCexponcurve 


1519 


1520 

1530 

1549 
x) 
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LOCAL 1%,01dF,newF,x,y:GCOL9,1 
oldF=Ø 

FOR I$-4 TO 1024 STEP4 
x-I$*hstep/l28:newF-1-EXP (- lambda* 


2240 xleft=32*interval%:ytop=bar% (inter 
val$)*120/vstep 

2250 MOVE xleft,Ø 

2260 PLOTØ,24,Ø:PLOTS1,Ø,ytop 

2270 PLOT0,-24,0:PLOT85,xleft,0 

2280 ENDPROC 

2290 : 

2300 ON ERROR OFF 

2318 MODE7:VDU23;11,255;0;0;0; 

2320 IF ERR<>17 REPORT:PRINT" at line " 
; ERL 

2330 END 


SIMULATING QUEUES - AN EXAMPLE 

A Post Office forms the basis for a 
simple queueing simulation model, and the 
program for this is listed below. Both 
inter-arrival times and service times are 
Exponentially distributed. In our model 
there will be a single queue of customers 
and up to five counters open for use. 


The program allows us to vary such 
parameters as the inter-arrival time and 
the service time (this latter being 


directly related to the number of counters 
in use) and to observe the effects, 


The simulation may start with a queue 
already in existence and it will stop when 
a specified number of customers has 
received service and has departed, Type in 


and run the second of this month's 
programs, and enter parameters as 
prompted, The simulation may be followed 


step by step through PROCprogress which 
reports on the state of our model as time 
passes. With this procedure in operation, 
simulating 1000 customers takes 
approximately 5 minutes. However, deleting 
line 1090 almost doubles the speed of the 
orogram, but only the final results of the 
simulation are displayed. 


UNDERSTANDING THE PROGRAM 

After we have entered the parameters 
of the model, PROCinit initialises the 
variables and sets the (simulated) clock 
to zero. If a starting queue was given, 
customers are assigned to any counter that 
is open and not in use. PROCsimulate then 
takes over, The simulation is based on the 


idea of 'events'. An event in this sense 
is | something that changes within the 
model. In our example an event is either 


the arrival in the Post Office of the next 
customer (distinguished as event type 1), 
or the departure of a customer from a 
counter (event type 2). 


It is first assumed that the next 
event is an arrival and each counter is 
then checked to see if a departure will 
have occurred before then. In general, 
having found the next event, the clock is 
advanced to this new time, waiting time 
(qwait) and counter-in-use times (use(C3)) 
are updated and control is passed to 
PROCarrival or PROCdeparture, depending on 
which event has happened. 


PROCarrival increments the number of 
arrivals and sets the time, by sampling 
from an Exponential distribution, for the 
next arrival. It checks to see if a 
counter is free and if SO, calls 
PROCassign to assign the new customer to a 
free counter and set, by sampling again, 
the service time for that customer. 


PROCdeparture is called when the next 
event is a departure (from a counter). The 
procedure checks to see if a customer is 
waiting and if so, again calls PROCassign. 


Throughout the simulation a record is 


kept, for statistical purposes, of various 
counts and queue lengths. These statistics 
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can then be printed out at the end of the 
simulated period of time if required, Even 
if you select the same initial parameters 
when running the program several times, 
the random sampling will ensure a certain 
degree of variation in the results. 
Statistically, any particular model should 
be run several times (statisticians would 
say about 30) and averaged out to give a 
final picture. 


10 REM POST OFFICE SIMULATION 
20 REM Version B.1 
30 REM Author Jan Stuurman 
40 REM BEEBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
199 MODE7:0N ERROR GOTO 2700 
119 PROCintro 
120 PROCinit 
130 PROCsimulate 
140 PRINTTAB(0,6)CHRS129"Press SPACE f 
or summary of results." 
150 VDU7:REPEAT UNTIL GET=32 
160 PROCresults 
170 PRINTTAB (6 , 24) CHRS1 35 "Another sim 
ulation? (Y/N)"; 
189 ans$=CHRS (GET AND &5F):IF ans$="Y" 
RUN ELSEIF ans$<>"N" VDU7:GOTO!80 
198 MODE? 
200 END 
210 : 
1099 DEFPROCsimulate 
1010 REPEAT: event3=1 :nevnt=nxarr 
1020 FOR C3=1 TO N% 
1939 IF dep(C%)<nevnt AND dep(C%)>clock 
event$-2:nevnt-dep (C$) : cntr$-2C$ 
1040 NEXT 
1050 per=nevnt-clock:clock=nevnt 
1969 FOR C3=1 TO N%:use(C%)=use(C%)+sta 
tus$ (C$) *per:NEXT 
1078 qwait-qwaittO$*per 
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1080 IF event$-l PROCarrival ELSE PROCd 
eparture 

1990 PROCprogress 

1100 UNTIL end% 

1110 ENDPROC 

1120 : 

1200 DEFPROCarrival 

1210 arr$-arr$*! 

1220 nxarr=clock+FNexpon(alambda,RND (1) 
) 

1230 IF NOT full% nowait%=nowait%+1s:PRO 
Cassign: ENDPROC 

1248 0%=0%+1 

1250 IF Q%>max0% maxQ$-0$ 

1260 ENDPROC 

1270 * 

1300 DEFPROCdeparture 

1318 dep%=dep%+1:busy%=busy%-1| :full%=FA 
LSE 

1320 status$ (cntr%)=Ø:ndep% (cntr%)=ndep 
$ (cntr%)+1 

1330 IF Q%>Ø PROCassign:Q%=0%-1 

1340 IF dep%=samplesize% end$-TRUE 

1350 ENDPROC 

1360 : 

1400 DEFPROCassign 


1419 C%=Ø:REPEAT C$-C$-1:UNTILstatus$ (C 


1420 status? (C$)-1 

1430 deo(C%)=clock+FNexpon (slambda , RND ( 
1)) 

1440 busy%=busy%+1:IF busy$-N$ full$-TR 
UE 

1450 ENDPROC 

1460 : 

1500 DEFPROCprogress 

1519 PRINTTAB(12,2)"clock: ";INTclock 
1520 PRINTTAB(0,3)"arrivals : ";arr$;T 
AB (19,3); "length of queue: ";SPC4; STRINGS 
(3 ,CHRS127) 30% 


1530 PRINTTAB (Ø,4) "departures: ";dep$ 
AB(19,4);"counters in use:";SPC4; i 
(3 ,CHRS127) ; busy% 

1540 ENDPROC 

1550 : 

1600 DEFPROCresults 

1619 VDU28,1,24,39,0,12: PRINTTAB (6) "QUE 
UE SIMULATION RESULTS" 

1620 PROCprogress:PROCcalc 

1630 PRINTTAB (0,6) CHR$131"AVERAGE TIMES 
"> TAB (19,6) "SPECIFIED"; TAB (31,6) "ACTUAL" 
' STRINGS (38 , "—") 

1640 PRINT"Inter-arrival";TAB (20)FNr6 (i 
ntertime);TAB (30)FNr6 (acarr) 

1650 PRINT"Service";TAB (20) FNr6 (serveti 
me) ; TAB (30) FNr6 (acser/N$) 

1660 PRINT"Wait (queue only)"; TAB (30)FN 
r6 (waitqonly) 

1670 PRINT"Wait (all customers) ";TAB (30 
)FNr6 (allwait) 

1680 PRINTTAB (0,13) "Maximum length of q 
ueue: ";max0% 

1699 PRINTTAB (0,15) "Counter Number of 
Servicetime Utilisa-"; TAB (8,16) "Departur 
es (average) tion" 

1700 PRINTTAB (0,17) STRINGS (38, "-") 

1719 FORC%$=1TON%: PRINTTAB (3,174C$) ;C$ 

1720 PRINTTAB(1Ø,17+C%) ; RIGHTS (" "ST 
RSndep% (C$) ,4) 

1730 IFndep%(C%)>Ø PRINTTAB (20,174C$) ;F 
Nr6 (use (C2) /ndep$ (C2) ) 

1740 PRINTTAB(3Ø,17+C%); FNr6 (use (C$) /cl 
OCk) 

1750 NEXT 

1760 ENDPROC 

1770 : 

1800 DEFPROCcalc 

1819 IF arr%>Ø acarr-clock/arr$ ELSE ac 
arr=Ø 
1820 acser=Ø:FOR C$-1 TO N$:IF ndep$ (C$ 
)>Ø acser=acsertuse (C$) /ndep$ (C£) 

1830 NEXT 
1840 IF arr%t+startQ%<>nowalt% waitgonly 
-qwait/(arr$tstartO$-nowait$) ELSE waitq 
only=Ø 
1850 IF arr%+startQ%>Ø allwait=qwait/(a 
rr$tstartO$) ELSE allwait=0 
1860 ENDPROC 
1870 >: 

1999 DEFFNinput (low,high) 

1910 PRINTTAB (22) " ("; low; "-";high; )";T 
AB (32) ; SPC6 
1920 REPEAT PRINTTAB (38) ;CHR$11; STRINGS 
(6 ,CHR$127) ; : INPUT" input: UNTILinput>=lo 
w AND input<=high 
1930 =inout 
1940 : 

2100 DEFFNexpon (LAMBDA , CDFVAL) 

2119 --LN (1 -CDFVAL) /LAMBDA 


2120 : 

2200 DEFFNr6 (nbr) 

2210 Q$-81020200:nbrS-RIGHTS (" "+STR 
$nbr,6):@3=0 

2220 =nbr$ 

2230 : 

2300 DEFPROCintro 

2319 FORI$Z0TO24:PRINTTAB (Ø , I $)CHRS (130 
- (I3>6) + (I$20)) ; :NEXT:VDU28,1,24,39,0,12 
2320 PRINTTAB (10,0) "QUEUE SIMULATION" 
2330 PRINT'"This program simulates sing 


le queues in a Post Office or supermar 
ket, The Exponential Distribution is u 
sed to find the times of arrival and 


service. You can open up to 5 service co 
unters." 

2340 PRINTTAB(3,8)"** INPUT VARIABLES O 
F MODEL **" 

2350 PRINT'"Number of counters"; :N$-FNi 
nput (1,5) 

2360 PRINT'"Average time between"'"arri 
val of customers";:intertime=FNinput (1,9 
9) 

2370 PRINT'"Average service time" ' "per 
customer"; : servetime=FNinput (1 ,No*intert 
ime) 


2380 PRINT'"Number of customers"'"to be ` 


served"; :samplesize$-FNinput (1,9999) 

2390 PRINT'"Length of queue at"' "start 
of simulation"; :Q3=FNinput (0,999) 

2400 ENDPROC 

2410 : ` 

2500 DEFPROCinit 

2519 DIMstatus$ (N%) ,use (N$) ,dep (N$) nde 
ps (NZ) 

2520 ends=FALSE: full 3=FALSE: VDU23; 11,9; 
0;0;0; 

2530 clock=Ø:qwait=Ø:nowait%=Ø:lost%=Ø 

2540 arr$-0:dep$-0:busy$-0 

2550 alambda=1/intertime:slambda=1/serv 
etime 

2560 nxarr=clock+FNexpon (alambda,RND (1) 
) 

2570 IF Q%>Ø REPEAT PROCassign:Q$-0$-1: 
UNTILQ%=Ø OR full% 

2580 startQ$-0$:maxQ$-0$ 

2590 VDU28,1,7,39,0,12: PRINTTAB (3) "QUEU 
E SIMULATION PROGESS REPORT" 

2600 PRINTTAB (2, 6)CHRS136CHRS129"** SIM 
ULATION IN PROGRESS **" 

2610 ENDPROC 

2620 : 

2700 ON ERROR OFF 

2710 VDU23;11,255;0;0;0; 

2720 IF ERR=17 END 

2730 REPORT:PRINT" at line ";ERL 


Many queueing situations can be based 
on the model used here and the number of 
ways in which the program can be adapted 
is almost endless. It is only possible to 
give just a few examples that would seem 
most useful. 


l.Renlacing lines 1250 and 1680 with: 
1250 IF 03>8 lost%=lost%+1:0%=0%-1 
1680 PRINTTAB (0,13) "Customers lost: ": 
lost$ 
will ensure that there are never more than 
8 customers waiting in the queue (assuming 
that a customer will leave if there are 
more than 7 people ahead of him in the 
queue). We may now investigate if the cost 
of opening another counter makes economic 
sense, Changing line 1250 to: 
1250 IF RND(1)<.1*0% lost%=lost%+1l: 
Q$-0$-1 
models a situation where the chance of a 
customer turning away depends on the 
length of the queue. 


2.Replacing line 1430 with: 

1430 dep(C%)=clock+8 
models such as an automatic 
facility with fixed service times. 


car-wash 


3.Service times at cash dispensing 
machines are more realistically modelled 
by a Normal distribution (few people draw 
out just £5 Or £10). Incorporating 
DEFFNnorm from last month's program and 
changing line 1439 to: 
1430 dep (C%)=clock+FNnorm(4,1,RND (1)) 

will handle this situation. 

k. 


Sideways 
RAM 


The new BBC Master and the 128K BBC B+ 
have four extra 16K paged blocks of 
sideways RAM. Unfortunately, buyers of the 
new Master will find no details of how to 
use the extra RAM in the 'Welcome Guide' 
supplied with the computer. The details 
are hidden away in section G7 of the 
expensive 'Reference Manual - Part One'. 
Buyers of the 128K BBC B+ are a little 
better off as a nine page application note 
is supplied with the machine; though the 
command syntax differs a little from the 
B+ to the Master. 


On both machines the RAM can be 
specified for use either for code which 
works as a ROM image, or for use with data 
which is used by the resident program. 
This article presents an easy way to use 
the sideways RAM for ROM images. Sideways 
ROM code can be loaded into these 'boxes' 
of sideways RAM and used in exactly the 
same way as an actual chip. The code 
survives everything but switching off the 
machine or loading another ROM on top of 
it, so it's quite secure. 


The commands to access the extra RAM 
are contained in the MOS in the Master, 
but with the BBC B+ they are contained in 
the DFS, so this must be present in the B+ 
even if an ADFS is being used. Code can 
Still be loaded if the ADFS is accessing 
the disc using the DFS commands. Typing 
*HELP SRAM <Return> on the Master or *HELP 
UTILS <Return> on the BBC B+ will list the 
commands and their syntax: 


*SRSAVE «Filename» «Start Address»? «End 
Address» (<ROM ID?) (Q) 


*SRLOAD «Filename? «Load Address? (<ROM 
ID») (Q) 


*SRWRITE «Start Address» <End Address» 
«Start Address» («ROM ID?) 


*SRREAD <Start Address? «End Address»? 
«Start Address? («ROM ID») 


*SRROM <ROM ID»? 


*SRDATA <ROM ID> 


*SRSAVE and *SRLOAD work as *SAVE and 
*LOAD except that they apply to the 
sideways RAM blocks. All four sideways RAM 
blocks have addresses in the range &8000 - 
&BFFF, they do not follow on one after the 
other as might be expected. Thus in almost 
every case the «Start Address? for *SRSAVE 
and the «Load Address? for *SRLOAD will be 
8000, The «ROM ID? tells the computer 
which block of sideways RAM to use, but 
just to confuse things, on the BBC B+ the 
four blocks are designated Ø,1,C and D 
while on the Master they are 4,5,6 and 7. 
The (Q) parameter is explained later. A 
typical save of sideways RAM code to disc 
on the Master might be: 


*SRSAVE buffer 8000 AFFF 5 
while to reload it on a BBC B+ use: 
*SRLOAD buffer 8000 C 


The program listed below is a short 
menu program which can be used to load 
items of code or ROM images into the 
sideways RAM blocks when required, 
Unfortunately, the *SRLOAD command is very 


slow (17 secs to load 16K of code into a 
block), so Acorn have provided a  'Q' 
(quickly) parameter. But using the 'Q' 


option corrupts main memory so it is not 
possible to use it in the menu program. 
Instead, it is possible to *LOAD the code 
into RAM above the menu program and then 
use the *SRWRITE command to copy the code 


into sideways RAM - the *SRWRITE command 
works incredibly quickly. 


Using *SRWRITE or *SRREAD the first 
two parameters «Start . Address? <End 
Address? apply to the code in main memory 
- this can be confusing when using *SRREAD 
as one would expect them to apply to the 
code's start address in sideways RAM. The 
third parameter «Start Address», when 
using *SRWRITE, refers to the code's new 
start address when it has been transferred 
to sideways RAM, but when using *SRREAD it 
refers to the first byte of the code 
before it is transferred. Therefore: 


*SRWRITE 2000 3000 8000 D 


on the BBC B* will produce a copy of the 
main memory between &2000 and &3000 at the 
start of block D of sideways RAM, 


*SRREAD 2000 4000 9000 7 


on the Master will produce an image in 
main memory of the first 8K of the 
sideways RAM in block 7 starting at &2000. 
Note that the computer gets the length of 
code to be read from the area designated 
for it to be copied to. 


Because of the different designation 
of the blocks on the two computers the 
function ' reduce' is used in the 
accompanying program. AS it stands the 
program refers to the Master but the only 
changes needed to make it suitable for the 
BBC B+ are shown as REM statements at 
lines 290 and 440 to 470, Lines 400 and 
410 force a 'hard' Break to initialise the 
ROMs - so beware - save the program first. 


The data in the program at line 5200 
must be changed to the actual filenames of 
the pieces of code on the disc. The final 
item of data must be 'zzz' which is used 
as a terminator by line 170. Up to four 
ROMs can be loaded, but if less than four 
are selected, the remaining blocks are 
designated as RAM by using the command 
*SRDATA in line 390, 


All the sideways blocks are initially 
available for ROMs, Unfortunately, it is 
not possible to re-designate a block as 
RAM once a ROM has been loaded into it. An 
error message appears, 'RAM occupied', so 
lines 11Ø and 490 ignore this error and 
force a Break. The only way to clear the 
blocks once they have been designated as 
ROMs and filled seems to be to switch off 
and start again. 


Use of the blocks for data is beyond 
the scope of this article due to the new 
method of psuedo addressing required but 
the information sheet from Acorn mentioned 
above is quite detailed in this area. The 
sideways RAM is there to be used - if it 
isn't you might just as well have a basic 
32K BBC - but there is still very little 
software which uses it and very little 
information for the home programmer, The 
sooner both become available the better. 


10 REM Sideways RAM loader 
20 REM for Master and 128K B+ 


30 REM by Thomas Nunns 
4Ø REM BEEBUG July 1986 


50 REM Program subject to copyright 


100 MODE 7 
119 ON ERROR GOTO 490 
120 DIMn$ (20) 
139 C$--] 
140 REPEAT 
150 C%=C%+1 
160 READ n$(C 
179 UNTIL n$( 
180 C%=C0%-1 
198 PRINT ' ' !CHRS (141) ;CHRS (134) ; SEC (7) "S 
ideways RAM Loader" 
200 PRINTCHRS (141) ;CHRS (134) ; SEC (7) "Side 
ways RAM Loader"' 
210 FOR D%=Ø TO C$ 
220 PRINT CHRS (131) ;CHRS (654D$);" ... 
"5 n$ (DS) 
230 NEXT 
240 PRINT'"Enter letter or letters ... 


o 
$) 
C$)-2'zzz" 


[4 

250 INPUT""NS:IF NS="" THEN RUN 

260 IF LEN(NS)>4 VDU7:PRINT''"Only room 
for four ... ";:VDU7:I-INKEY (200) : RUN 

270 CLS 

280 PRINT TAB(0,8) 

290 P$="7" ; REM for BBC B+ use PS="D" 

300 FOR D%=1 TO LEN (NS) 

310 n$-ASC (MIDS (NS ,D%,1))-64 

320 IF n%<1 OR n%>C%+1 THEN PRINT ' "Input 
out of range ";:VDU7: I=INKEY (200) : RUN 

330 PRINT''"Loading ";n$(n$-1); 

340 OSCLI ("SRROM"+PS) 

350 OSCLI ("LOAD "+n$ (n3-1)+" 3000") 

360 OSCLI("SRWRITE 3000 7000 8000 "+PS) 

379 PS=FNreduce 

380 NEXT 

390 IF PS<>"" REPEAT:OSCLI ("SRDATA 
"+PS) : PS=FNreduce: UNTIL P$="" 

400 *FX151,78,127 

41Ø CALL !-4 

420 : 

430 DEF FNreduce :REM for BBC B+ use rem 
Statements 

440 IFP$="7" ="6":REM IFPS="D" ="C" 

450 IFP$="6" ="5":REM IFP$="C" ="|" 

460 IFPS="5" ="4":REM IFPS="1" z"g" 

470 IFPS="4" z"" «REM IFPS="g" ="" 

480 : 

499 IF ERR-131 GOTO 400 ELSE 
REPORT: PRINT" at line ": ERL:END 

500 : 

510 DATA ROM],ROM2,ROM3,Zzz 

520 REM Replace "ROMI" etc with the 
filenames of your own sideways ROM 
software 


sl 


iter your ever increasing ROM 


Sideways ROMs have proved to be a 
particularly popular feature of the BBC 
micro, and a vast number of users have 
long ago filled the few available ROM 
Sockets in their machines, and resorted to 
sideways ROM boards to allow them their 
full complement of sixteen ROMs. 


When you have that many ROMs in your 
machine however, you really need some kind 
of ROM-management system: something that 
will at least catalogue your ROMs for you, 
and allow you to temporarily disable those 
causing internal conflicts of command 
names or workspace. 


The ROM controller oresented here does 
just that, and a bit more besides. In 
precise terms it offers the user the three 
following features: 

1. It will tabulate all ROMs (and 
RAM) present, giving socket number, 
name and whether enabled or not, and 
will provide information on ROM type, 
ROM size and copyright message. 


2. It permits selection and 
de-selection of individual ROMs, with 
the state of each remaining intact 
even across a hard Break. 


3, It will allow you to save any ROM 
to disc so that it may be reloaded 
into sideways RAM. This option does 
not permit protected software to be 
run from sideways RAM. 


To use the ROM Controller, type in the 
listing and save a copy first. When it is 
run, the program will announce itself, and 
then pause while it reads in the data from 
each ROM, It then presents the ROM names 
in tabular form, with a key legend below. 
Empty Sockets will be labelled 
accordingly, and any RAM containing no ROM 


2 iw 


indicate a cassette save, Disc users 


image will be labelled 
SOCkets, including empty sockets and empty 


"RAM", Disabled 


RAM are highlighted in red. You will also 
notice a cursor against ROM 15, the 
highest priority socket. This cursor is 
moved with the up/down cursor keys, and is 
used to select individual ROMs for the 
various functions outlined below. 


To disable the ROM currently selected 
(by the cursor position), press <D>, and 
to indicate this the ROM name will turn 
red. If, however, you are holding «Ctrl»? 
at the same time, all the ROMs in your 
machine will be disabled; and if you hold 
«Shift?» then you will be asked for a 
wildcard name and then any ROM with that 
name contained in its title will be 
disabled. To enable a ROM you have to 
press <A> (for Activate), and this works 
in exactly the same as the disabling 
procedure. However, before any of the 
above commands can take effect, you must 
exit from the controller with the Q option 
(see below). 


To save the currently selected ROM to 
disc or cassette, press <S>. You will then 
be asked for its filename (which is 
automatically truncated to seven 
characters so as to avoid a "bad filename' 
error on disc) and the required drive 
number. A null filename aborts the save, 
while a null drive number is used to 
will 
find their file saved on the required 
drive in directory R, and will see the 
result of a *INFO on the saved file before 
returning to the main screen, Cassette 
users will not witness this spectacle. 


To reload a ROM image 


this 


Saved in 


way, back into sideways RAM is an easy 
matter if you are using an ATPL board. 
Just type: 

*LOAD «filename» 
Disc users should remember to use 
directory R for this operation. When the 


file has loaded, press Ctrl-Break to allow 
the ROM to claim its workspace. If your 
RAM is installed in another make of ROM 
board, you may need to refer to the 
manufacturer's instructions to find out 
how to load ROM images to RAM. 


To obtain further information about a 
selected ROM press <I>. This gives the 
full copyright message together with the 
ROM type - whether Service, Language or 
both, the length of the ROM and whether it 
is currently enabled or not. 


Pressing <0> from the main screen 
allows star commands to be performed, 
while «Q^ will quit the routine in a 
proper manner, and set the on/off status 
of each ROM, as currently selected. 


MEMORY USEAGE 

As the program stands, the machine 
code sections are assembled into an area 
of memory at &AØØ, and the oscli routine 
uses a few bytes at &9ØØ for passing 
commands to the operating system. Neither 
of these areas should cause any conflict. 
If you do wish to alter the locations used 
however, you will need to modify lines 
1919, 1398 and 1890. 


Status: Activ 


"bec Service m 


PROCEDURES 
assemble Sets up the machine code routines 


for downloading parts of ROMs, 
and also OSCLI commands. 


EBUG JULY 1986 


swrtst Tests if Sideways RAM is present 
and if so tests to see if there 
is ROM software in it, 

list Prints out the names of the ROMs, 

instr Prints out the key controls. 

cursor Prints string beside the ROM 
currently chosen. 

OS Performs the OS commands 
specified in QS. 

break Sets up the BREAK intercept 
routine for disabling ROMs 
through control /shift/soft/memory 
clear BREAK. 

status Prints out all information about 
the ROM currently selected 
(length, type, name, copyright, 
active/disabled, & socket 
number). 

oscli This allows the user to perform 
any OS command. 

disable This tests if Shift is being 
pressed and if so goes to the 
wildcard disable procedure. If 
Ctrl is being pressed it goes to 
the universal disable procedure 
otherwise the currently selected 
ROM is disabled. | 

enable This does exactly the same as the 
disable procedure, but enables 
ROMs instead of disabling them. 

alloff Disables all ROMs. 

allon Enables all ROMs, while not 
enabling empty sockets. 

wcoff Asks for a wildcard name, and 
then disables all ROMs containing 
that wildcard name. 

wcon Similarly as 'wcoff' but enables 
instead (again not enabling empty 
Sockets). 

inputname Input procedure for the two 
wildcard procedures. 

VARIABLES 

AS Number of currently selected ROM, 

ACS () Current codes in the ROM table 
for each ROM. 

AS Character to be used as pointer 
(" " for deleting old pointer and 
">" for pointer). 

‘© Y co-ordinate of pointer (">"). 

C$ () Copyright messages of ROMs. 

DRS Drive number. 

F$ Filename of ROM to be saved. 

L$ () Lengths of ROMs (8/16 K) 

NS () Names of ROMs. 

OS OS command entered by user in 
PROCoscli. 

QS OS command to be carried out. 


RS Wildcard name. 

SPS Sideways RAM: Ø if not present, 
if present. 

SU% Sideways RAM in use: Ø if not in 
use, | if in use. 

T$ () ROM types. 


10 REM PROGRAM ROM CONTROLLER 

20 REM VERSION BØ.4 28.Ø5.86 

30 REM AUTHOR  ANDREW HO 

40 REM BEEBUG JULY 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : | 

100 ON ERROR GOTO419 

119 MODE 7:VDU23,1,0;0;0;0; 

120 FORL%=ØTO1|:PRINTTAB (5,L2) ;CHRS131; 
CHRS157:CHRS129;CHRS1 41; "BEEBUG ROM Cont 
roller "SPC (3) ;CHRS156:NEXT:VDU28,Ø,24,39 

3 
[4 N 

130 PROCassemble:PRINT;CHRS134; "Initia 
lizing... ":?&275=1:PROCOS("FX4,2") 

149 DIM N$ (15) ,CS (15) ,AC$ (15) ,L2 (15) ,T 
$ (15) 

150 FOR A$-0 TO 15:VDU31 , 17,0: PRINT;A% 
:2&66-A2$:?&60-2&80:?7&612&3C:?2&6221:CALL c 
Opy: ?&69=&A9: ?&61=&5C: ?&62=1:CALL copy 

160 IF !&3C09-&80808080 OR !((?&3C97)+ 
&3CØØ) <>&294328ØØ NS(A3)="--- Empty ---" 
: T$ (AB) -0:L$ (AS) =Ø CS (AS) ="" : AC$ (AS) =0: P 
ROCswrtest:GOTO259 

170 B%=&3CØ9:REPEAT:IF ?B%>31 NS(A%)=N 
S (AS) +CHRS ?B% 

180 B%=B%+1:UNTIL ?B$-0 OR B%=&3C29 

190 T$ (A$)-?&3C06 

200 B$-(&3CU0-?&3CO7):REPEAT:IF ?B3>31 
CS (AS) =CS (AS) +CHRS?B3 

210 B%=B%+1: UNT IL ?B%<19Ø 

220 DS="":B%=&5CØ9:REPEAT:IF 2B8%>31 DS 
=D$+CHRS?B% 

230 B%=B%+1|:UNTIL ?BS=8 OR B%=&5C29 

240 IF DS=NS(A%) L%(A%)=8 ELSE L%(A%)= 
16 

250 AC$(A£$)-? 

260 VDU23,1,0 
cursor (">") 

270 REPEAT:L=INKEY (5) 

289 IF INKEY(-58) AND C>Ø PROCcursor(" 

") :C=C-.,5: PROCcursor (">") 

290 IF INKEY(-42) AND C«15 PROCcursor ( 
H) :C=C+,5:PROCcursor (">") 

300 IF INKEY(-17) GOTO 370 

31Ø IF INKEY(-82) GOTO 900 

320 IF INKEY(-38) PROCstatus 

330 IF INKEY(-55) PROCoscli 

340 IF INKEY (-51) PROCdisable 

350 IF INKEY (-66) PROCenable 

36Ø UNTIL FALSE 

370 CLS:?&275=Ø: PROCos ("FX15") : PROCos ( 
"EXAU) 

380 PROCbreak 


22 


A$):NEXT 


( t 
; d::PROClist:C=0: PROC 


&2A 1 
Ø; 0; 


39Ø END 

400 : 

410 ON ERROR OFF:ON ERROR GOTO 419 

420 CLS:PRINT':REPORT:PRINT" at line " 
;ERL 
430 PRINT"Press Spacebar to continue:" 
; : REPEATUNTILGET=32 

440 GOTO260 

450 : 

460 DEFPROCswrtest 

470 IF FNtestswr (A%)=1 NS(A%)="<RAM>" 

480 ENDPROC 

490 : 

500 DEFFNtestswr (0%) :Y3=0%:!&F6=&8000: 
187Ø=USR&FFB9O 

510 ?2&71=(?&7Ø)+1 :CALLtestit:IF?&71=?% 
70 =Ø ELSE =l 

520 : 

530 DEF PROClist 

540 CLS:FOR A3=15 TO Ø STEP -1:VDU136, 
32,137:IFAS<1Ø PRINT;" "; 

550 PRINT;A$;:1F AC$(A2)-0 PRINT" "CH 
RS129:NS (AS) ELSE PRINT" ';CHRS131;NS$ (A$ 
) 

560 NEXT:PROCinstr:ENDPROC 

570 : 

580 DEF PROCcursor (AS) 

590 PRINTTAB(1,C)AS 

600 ENDPROC 

610 : 

620 DEF PROCoscli 

630 PROCos("FX15") : PROCos ("FX138,0,127 
ve 

) 

640 CLS: INPUT"Command: *"O$ 

650 PROCos (OS) 

669 PRINT'SPC(12);"Press <SPACE>.":REP 
EAT UNTIL GET=32:PROClist:PROCcursor (">" 
) 

670 ENDPROC 

689 PRINTSPC(8);:REPORT:GOTO 660 

690 : 

700 DEF PROCROMOff 

710 FOR A%=15 TO Ø STEP -l:AC%(A%)=Ø:? 
(&2A1+A%)=0:VDU31,6,A% EOR 15,129:NEXT 

720 ENDPROC | 

730 : 

740 DEF PROCROMon 

750 FOR A$-15 TO Ø STEP -1:AC$ (A$)-T$( 
AS) : ? (&2A1+A%) =T% (AS) s IF ACS (A%) <>Ø VDU3 
1,6,A% EOR 15,131 

768 NEXT:ENDPROC 

770 : 

78Ø DEF PROCstatus 

790 CLS:A$-C EOR 15:PRINT;CHRS131;NS$ (A 
2) ' 'CHRS131; "Copyright: ";CHRS1 33; LEFTS (C 
$ (A$) ,27); 

900 IF LENCS(A%)>27 PRINT;SPC(12);CHRS 
133; MIDS (CS (AS) ,28,27) ; CHRS11 

819 PRINT''CHRS131; "Length: ";CHRS133;L 
$ (A$) ; "K"sSPC (9) s;CHRS1 313 "Status: ";CHRS133; 


820 IF AC%(A%)<>Ø PRINT;"Active" ELSE 
PRINT; "Disabled" 

830 PRINT'CHR$131; "Socket: "; CHRS$133;A$ 
; SPC (4) ;CHRS131; "Type: ";CHRS1 33: 

840 IF (T%(A$) AND 128)=128 PRINT; "Ser 
vice"; 

850 IF (T%(A%) AND 128)=128 AND (T$ (A$ 
) AND 64)=64 PRINT;" / "5 

860 IF (T$(A$) AND 64)=64 PRINT; "Langu 
age" 

870 PRINT'''''SPC(12);" Press <SPACE>." 
: PROCos ("FX15") 

880 REPEAT UNTIL GET=32:CLS:PROClist:P 
ROCcursor (">") : ENDPROC 

890 : 

900 CLS:VDU23,1,1;0;0;0; :A%=C EOR 15:P 
RINT;CHRS131;NS$ (A2):?&66-A$:7&60-&80:?&6 
1=&3C: ?&62=(L% (AS) *4) «CALL copy: PROCos (" 
FX15") 

910 PRINT 'CHRS1313; "Filename: ":CHRS133; 
e INPUT" "FS 

920 PRINT 'CHRS131; "Drive (Tape users p 
ress <Return»):";CHRS133; : INPUT" "DRS 

930 IF DRS<>"" PROCos ("DRIVE "+DRS):PR 
OCos ("DIR R") ` 

940 FS=LEFTS (FS,7) 

950 PROCos ("SAVE "+FS+" 3CØØ+"+STRS" (L 
$ (A%) *&4ØØ) +" D9DC 8000") 

960 IF DRS<>"" THEN PRINT';CHR$11:PROC 
OS ("INFO "+F$) 

970 PRINT''''SPC(4);CHRS133; "Press any 
key. ";CHRS11;CHRS13:G=GET:VDU23,1,Ø; 0;0 
;Ø; | 

980 CLS:PROClist:PROCcursor (">") :GOTO 
270 

990 : 

1000 DEF PROCos (Q$) 

1919 $&900-QS:CALL oscli:ENDPROC 

1020 : 

1030 DEF PROCdisable 

1640 IF INKEY (-2) PROCROMOff : ENDPROC 
1950 IF INKEY(-1) PROCalloff:ENDPROC 
1060 A$-C EOR 15:AC$ (A$)-0:VDU31,6,C,12 
9: 2 (&2A1+A%) =Ø : ENDPROC 

1970 : 

1989 DEF PROCenable 

1999 IF INKEY(-2) PROCROMon:ENDPROC 
1199 IF INKEY(-1) PROCallon:ENDPROC 
1119 A%=C EOR 15:IF AC%(A%)=Ø AND T$(A$ 
)<>Ø ACS (AS) =TS (AS) :VDU31,6,C, 131:?2 (&2A1 
+A%) =T% (AZ) 

1120 ENDPROC 

113@ : 

1148 DEF PROCbreak 

1150 FOR I$-0 TO 2 STEP 2:P%=&132: [ OPT 
I$ 

1160 LDY40:.100p:LDAtable,Y: STA&2A],Y:I 
NY :CPY416:BNELOOp: RTS 

1170 .table:]:FORU%=ØT015:P%?U%=U%?&2A1 
*NEXT:P%=P%+16 


1180 NEXT:1&287-&01324C: ENDPROC 
1190 : 

1200 DEF PROCinstr 

1210 PRINT;CHRS1 33; "<Q>u1t";SPC (14) ; "<I 
^nfo" 'CHR$133; "<O>scli ":SPC (13): "<S>ave" 
'CHR$133; "XA»ctivate";SPC (3) :CHRS1 35; "(+ 
CTRL = All ROMS"'CHRS133; "<D>isable":sP 
C(4) ;CHRS1 35; "(+SHIFT = Wildcard": ENDPRO 
C 

1220 : 

1230 DEF PROCalloff 

1240 PROCinputname 

1250 FOR C=Ø TO 15:A%=C EOR 15:IF INSTR 
(NS (AS) ,R$) 20 PROCdisable 

1260 NEXT: ?&259=Ø:C=?&7Ø: ENDPROC 

1270 : 

1280 DEF PROCallon 

1290 PROCinputname 

1300 FOR C=Ø TO 15:A%=C EOR 15:IF INSTR 
(NS (A%) ,RS) <>% PROCenable 

1319 NEXT: ?&259=Ø:C=?&7Ø: ENDPROC 

1320 : 

1330 DEF PROCinputname 

1340 ?&70-C:VDU28,0,24,39,20,12 

1350 PROCos("FX15"):INPUT"Wildcard name 
° "RS 

1360 ?&259-1:CLS:PROCinstr:VDU28,0,24,3 
9,3: ENDPROC 

13708 : 

1380 DEF PROCassemble 

1390 FOR I$-20 TO 2 STEP 2:P%=&AØØ: [ OPT 
I$ 

1400 .test 

1410 LDA &F4 
1420 STA &65 
1430 LDA #&F 
1440 STA &F4 
1450 STA &FE3Ø 
1460 LDY #0 

1470 .tloop 

1480 LDA &8000,Y 
1490 STA &70,Y 
1500 INY 

1510 CPY #16 
1520 BNE tloop 
1530 LDA &65 
1540 STA &F4 
1550 STA &FE3Ø 
1560 RTS 

1570 .copy 

1580 LDA &60 
1590 STA &A9 
1600 LDA #Ø 

1619 STA &A8 
1620 STA &AA 
1630 LDA &61 
1640 STA &AB 
1658 LDA &F4 
1660 STA &65 
1670 LDA &66 


ADVENTURE GAM 


Title : Project Thesius 
Supplier : Robico Software, 
: 3 Fairland Close, Llantrisant, 


: Mid Glamorgan CF7 8QH. 
Price : £9.95 (Cas.), £11.95 (Disc) 
We BEC 
This latest saga from Rob the Welsh 


wizard, is a follow up to his previous spy 
adventure "Rick Hanson 1". Yet again, your 
impossible mission is to boldly go where 
the bullets are thickest and the dames are 
slimmest to retrieve the secret plans from 
an impregnable fortress. 


Trigger-happy guards, ferocious dogs, 
and minefields surround the perimeter to 
the castle, which is hidden deep in the 
woods. As in "Hanson 1", previous agents 
have left clues and equipment to assist 
you which they have 'thoughtfully' hidden 
in the least likely locations. 


To add realism to the game the author 
has added a sneaky touch. Should you, by 
mistake or design, use a piece of 
information gained On Some previous 
attempt at the game, but not obtained 
during your current attempt, the game will 
respond as if the solution was incorrect, 
For example, should you discover a correct 
password and then replay the game from a 
previous saved position prior to your 
password discovery, the password will not 
work. This fact can cause quite a few 
headaches so ensure you take no shortcuts. 


A distressing part of the game is the 
appearance of the village maze. In 
retrospect I found the reason for it, but 
I gnawed the keyboard just the same. The 
game has been written to fit the reduced 
memory of the Electron and it shows. On a 
number of occasions the normally clever 
command interpreter used by Robico becomes 
singularly stupid. There are at least two 
occasions where great problems are to be 
experienced trying to find the one word 
which the game insists on obtaining before 
it will understand. Having just recently 
finished playing 'Enthar Seven' (which is 


Y 
PS) 
Ø 


arguably the best BBC adventure around, 
and is also by Robico) this game suffers 
in comparison. The problems are at an 
'average' level which makes it suitable 
for those among us who find the likes of 
Level 9 problems a bit below the belt - 
it's good but he's done better, 


Title : Midge Message Compression 
: System 

Supplier : Robico Software 

Price : £11.95 (Disc only) 


Me+sn dx 


The secret of compressing the vast 
amount of data contained within the Robico 
games can now be used within your own 
creations. This text handling toolbox 
enables would-be authors to Create, 
Modify, Compress and Recall text messages. 


Essentially the package is for the use 
of adventure writers, but it could prove 
equally useful wherever large amounts of 
text data are to be held in memory. The 
package is very easy to use and consists 
of a number of menus which act upon the 
text file containing your messages. 


All messages are initially entered in 
upper case, within which you may add 
special characters which are interpreted 
at write-out time. These characters may be 
used to specify the colour of text, the 
line width of the printed message, begin 
and end of case change and the speed at 
which the message is to be printed. Using 
this technique, colourful, upper and lower 
case text may be quickly or slowly printed 
in a laid out format. For example, the 
message: 

GMY NAME IS @FRED.I AM 9, 
would be finally be printed as: 

My name is Fred. I am 9, 


To use the resulting data you simply 
*LOAD the file at the top of your memory 
and do a CALL MPRINT or JSR MPRINT to 
access your messages. A professional text 
compressor like this which averages 45% 
compression is a very useful tool for the 
Beeb adventure writer and this one is as 
good as they come. x 


While on the subject of home-grown 
adventures, it is to be hoped. that the 
anticipated Graphic Adventure Creator from 
Incentive Software will live ‘up to its 
promise. I hope to review this shortly. 


“El 


all and manipulation 
of complex graphics images, particu- 
larly i im colour. Colin Cohen, an expert 
im graphic arts, reports on this 
impressive new package. 


Product 


: Image 
Supplier 


: Cambridge Micro Software 
: The Edinburgh Building, 

: Shaftsbury Road, 

: Cambridge CB2 2RU. 

: Tel. 0223-312393 


Price : £45.88 inc VAT (Disc only) 


Attention to detail is the hall-mark of 
good programming, and would-be programmers 
would do well to look at Image published 
by Cambridge University Press as part of 
the (now concluded) Micro-electronics in 
Education Programme. This comprehensive 
colour-graphics package stretches the 
Beeb's capabilities in this direction to 
the limit. The manual is written with 
admirable clarity and, thanks to the MEP 
subsidy, is printed in full colour 
wherever needed. The colour is of partic- 
ular importance when it comes to dealing 
with  three-colour theory, and underlies 
the strengths of the programs and manuals 
as educational aids for physics or art, 
rather than just as entertainment. 


An example of 
preparation and 
control can be 


the care taken in 
presentation is that 
from an AMX Mouse, 
joysticks, tracker balls and a variety of 
touch pads and graphics tablets. A colour 
monitor is clearly better than a domestic 
TV. The *SYSTEM program comes ready 
configured, but by cycling through menus 
it can be reconfigured for new control, 
input and output selection. The new 
parameters write themselves to disc so 
that it will !BOOT in that configuration 
until such time as it is reconfigured. 
The only ambiguity I found in the manual 


was in this start up procedure. Otherwise, 
the manual's claim that Image can be used 
by someone with no previous computer 
experience 


seems justified, and in 


particular, load and 
particularly well 'error-trapped', 
very grateful for it when for no apparent 
reason the program crashed, but I was able 
to pick it up from the last save. 


save operations are 
I was 


Partly as a result of the 'error- 
trapping’ and partly due to the many 
overlay programs needed because of memory 
limitations on the Beeb, the program does 
often seem slow. The use of overlays does 
not cause the main program to lose track 
of pre-set parameters - for instance, if 
you choose to save a picture on one of the 
pages of the ‘sketch book", not only is 
your original picture still on the screen, 
if you go back to the main program, but 
the functions such as nibs and colours are 
reset to where you left off. 


As one of that large minority who are 
left-handed, my expectations were certain- 
ly raised by finding that the package 
contained an overlay for a Concept 
Keyboard, laid out for the majority on one 
side, and for me on the reverse! Oddly 
enough, I am now so used to right-handed 
keyboards that I doubt if one with numeric 
or cursor controls on the left would be 
any easier, I used an AMX mouse with 
Image, alternating with the keyboard, but 
I suspect that the ideal combination would 
be a Grafpad as I find that a mouse tends 
to be rather inaccurate (lacking positive 
control of co-ordinates), and while the 
cursor keys are perfect for drawing 
straight lines and small, precise move- 
ments, they are difficult to use for 
'freehand' drawing. Control of movement 
on-screen is automatically passed back 
from the mouse or other device to the 
cursor keys simply by pressing the 
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cursor-right key. 


Many of the functions in Image are 
similar to those found in paint programs, 
such as Beebugsoft's Paintmaster, but the 
program's ability to create arcs between 
two points or draw 'rays' are better than 
any I have seen before on an 8-bit micro. 


Most of the functions are accessed by 
placing the cursor over a series of 
letters down the left hand edge of the 


screen and clicking the mouse to reveal a 
pop-up menu. These, too, can be clicked to 
activate a particular size of nib, or type 
of line, with the current choice shown on 
a status line. On the other side of the 
screen a wide range of colour functions 
are available, and pop-up menus can also 
be used to select lettering, which can be 
in a wide range of sizes in Roman or 
Italic, and rotated in 90 degree steps. 


If you make a mistake (even in 
lettering, where positioning is rather 
difficult to gauge), the situation can 
usually be rectified by using the 'fill' 
function to change the incorrect part to 
the background colour. This perhaps shows 
up one shortcoming of the system. If for 
example, a red area adjoins a blue area, 
either colour can be changed to any other. 
However, if you change any colour to the 
Same as its neighbour, the boundary is no 
longer retained and from then on they 
cannot be manipulated separately. 


The ‘sketch book’ allows from 5 (40 


track, single-sided) to 24 (80 track, 


double sided) pictures to be stored on a 
disc, and these can be recovered at will. 


Additional features allow them to be 
changed automatically at variable 
intervals to provide a slide show or 
animation, and using the extremely 


flexible colour-change facilities, pseudo- 
animations are also possible within a 
single frame. 


The effect of cycling through the 
colours, either changing each colour to 
its opposite or its next logical colour 
has to be seen to be believed. As well as 
the standard save routine, screen dumps 
from other programs can be loaded, or 
Image graphics saved, from  &3000 to &7D80 
in mode 2, for instance to use as program 
titles. 


The chief use of Image would appear to 
be by those who need to create sophisti- 
cated Beeb graphics in colour, (though few 
will be able to afford a colour printer to 
enjoy the effects on paper), in teaching 
of colour theory and appreciation, and 
even in generating colour separations for 
conventional printing. Image is a 
thoroughly professional and robust soft- 
ware package that has much to offer all 
those interested in colour graphics on the 
Beeb. It compares very well for quality 
with the likes of Tesselator and Graphito, 
reviewed last year in BEEBUG Vol.4 No.2, 
though the relatively high price of Image 
may dissuade some. 
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In the March 1986 edition of BEEBUG we 
e the Magic Modem. This iswhat we 
said: 

"Using the software and the modem is 
simplicity itself” 

"Simply a delight to use... performed 
perfectly... in my opinion the best terminal 
software yet for the BBC" 


it so also reviewed on Micronet 800. They 
said: 

"Lots of thought has gone into the design... 
certainly the best modem package for 
accessing Prestel via a Beeb so far!” 

We were so impressed by the quality of this 
modem and software that we have 
negotiated a special offer for members. 


THE MODEM 
simply plug the modem into your computer 
with the lead provided and you are ready to 

o. Ideal for accessing Prestel, Micronet 800, 

elecom Gold, Telelink, Homelink and 

hundreds of bulletin boards. Features auto 
dial and auto answer. You can even set up 
your own bulletin board with the Beebug 
Magic Modem. In fact this modem is 
already in use by several well known bulletin 
boards already. 


THE SOFTWARE 

supplied with custom designed 
communications software supplied on a 16k 
rom written by Soft Machinery. This enables 
you to auto dial, and contact any of the 
services (Prestel, etc.) that you may require. 
The software is truly excellent and features a 
mailbox frame editor, telesoftware 
downloader, frame tagging, load, save, 
print, etc. all atthe press of a function key. 


PRICE 


Modem (inc. Auto Answer) software and lead 
£109 inc. VAT 

Modem (inc. Auto Answer) and lead 

£94 inc. VAT 

UK carriage £2.00 


FULLY BT APPROVED 
This modem has undergone the rigorous British 
Telecom approval procedures. You have no 
worries about problems, incompatabilities or 
damage to your computer or phone which may 
be caused by unapproved equipment. 

This is your guarantee of reliability and testifies 
to the highest manufacturing standards used 
inthis modem. 


APPROVED tor use with 
Telecommunications systems run 
by British Telecommunications in 

accordance with the conditions 
in the instructions for use. 


$/2908/3/G/500406 


BEEBUG RETAIL 
Dolphin Place, Holywell Hill, $t. Albans, 
Herts. AL1 4EX 


Membership No. ....... up 
Please send me 


Modems & Software at £409 
at £95 s 
Carriage at £2 


. Modems 


Total enclosed £ 
Please debit my Visa/Access card no. 
COMPATABLE WITH | 


FEATURES | | | | | 
Auto Answer BBC model B 4- | | | 
Baud Rates of Master Ex qala EFI] 

4200/75 

1200/4200 Name 

75/4200 Address 
300/300 


IN STOCK NOW IN STOCK NOW IN STOCK NOW IN STOCK NOW IN STOCK NOW IN STOCK NOW IN STOCK _ 


nputer Concepts Product: 


SIAL MEMBERS PRICES 


Computer Concepts ROM-LINK suite comes nearer to completion with the release of 
Interword the wordprocessor. Our special price is £ 48 inclusive of VAT and postage. We 
can offer a special discounted price of £45 all inclusive to owners of Wordwise 
Plus — simply quote your Wordwise Plus registration number when ordering to claim this 
price. 

Also new this month is CC's enhanced replacement version of their Speech System 
reviewed in BEEBUG Vol. 4 No. 6 and Vol. 5 No. 2. 

EXTRA MEMBER'S ONLY DISCOUNT — Buy more than one product and you may deduct 
£ 1 from each. To obtain the products at these prices you MUST quote your membership 
number. 

We can provide Computer Concepts' specification booklet describing their Roms. 
Please send an A5 SAE marked "Rom Spec”. 

Members, please note that we will match any currently advertised price in Acorn User 
or Micro User for these products from recognised dealers. 

We only accept official orders over £30. Orders below this value will be sent a Pro- 
Forma invoice and goods despatched upon receipt of payment. 

We guarantee 24 hour despatch by first class post, provided orders are not combined 
with orders for Non-Computer Concepts products and are sent on this form to the 
address below. 


Unit Total Unit Total 
Qty Product Price Price Qty. Product Price Price 
_ _ Inter Word 648.00 — _ Wordwise Plus £46.00 
|... Inter Sheet £46.00 —— SpeechSys(incTIS) 32:00. 
. . |nterChart $29.90 —— Caretaker £28.00 ___ 
. _ Disc Doctor $28.00 —— mill —. $28.00. 
. _ Accelerator £56.00 — Communicator — £58.00. — 
— _ Graphics ROM $25.00 — — Printmaster (Epson) £28.00 
|... Wordwise $29.00 —  Printmaster (Star) £28.00 
TOTALCOLUMN1] |. _ TOTALCOLUMN2 . |. 
TOTALCOLUMN2 . .—— 
TOTAL ___ 
EXTRA DISCOUNT £1 per product on multiple orders 
WW ^-- Interword discount _ 3 WW+ Reg No. | 
(NON-DISCOUNT PRODUCTS) 
Hi-WW Plus disc $5.75 | Requires Wordwise Plus 
Hi-Inter Sheet Disc £5.75 | Requires Inter Sheet 
Acorn Sp Processor £10.00 Not available without Speech System 


TOTAL 


Prices include VAT and postage, overseas members please send a Sterling cheque 
drawnon a British bank for the same amount to include extra postage but not VAT. Make 
cheques payable to BEEBUGSOFT, and send to: 


ROM OFFER, BEEBUGSOFT, Dolphin Place, Holywell Hill, St. Albans ALI 1EX. 


Name 1 | | . ^ ^ ^ ^ ^J? Membership No. 
Address 


Access/VisaNo: |_| |_| | LLLI LJ EITT TJ ULT 


Expiry Date: | | | 


BC micro into a four voice 
synthesiser with an eight track 

dig rder and a rhythm and 
drum machine. 

D Select any one of the 32 
instruments by name. Play them 
from the keyboard with sliding fader 
controls for level mixing 
® Set keyboard to auto-sustain, 
mono or polyphonic, with optional 
split-keyboard operation 

d Play the keyboard; alter the tonal 
effects: see the amplitude pulsate 
onthe sliding faders | 

Ð Build up a drum backing on the - 
cium machine 
e Build up a rhythm 
accompaniment on the rhythm 
machine 
e Synchronise the two 
® Set the 8 track recorder to record, 
qua watch the digital tape counter 
Ð Use the studio mixer to add an 

accompaniment from a different 
Le edin real -time on the 


envelopes accessed by name - 


SIE Fi aqa printout facility 


of machine ¢ cod le and converti y your 


included on the ae 


OTHER FEATURES INCLUDE 
9 Envelope definer — 16 envelopes may be defined using a full screen 
Salter and may be slowed down for analysis. 


9 Instrument definer — define up to 32 instruments with up to 16 


editor — A full screen editor to edit music recorded on the 


9 Press "Rewind" watch the tape 
indicator 


9 Press "Stop" at any point: then 
press "Play" to hear the mix 


This is a truly exciting real-time 
studio system which will c give 
hours of entertainment. li does not 
require musical proficiency and 
will addict you with its ease of use 
and amazing results. 


simple instructions are given to 
add an external speaker and 
keyboard. 


Examples of the music that can 
be created with STUDIO 8c are 


| 7 | Spooks and Spiders. 
Å Super Pool 
| Vortex ` | 


| Alien Dropout 
T Battle Tank 


ort | Centipede - - 
Į Crazy Painter — 


DeathS tar 
jalaxians 
Hunchback — : 

ack & Beanstalk 


SUPPLEMENT 


IBM PC, BBC MODEL B, AMSTRAD CPC and SPECTRUM 48K 


ANALYSER l and Il compute the A.C FREQUENCY RESPONSE of linear (analogue) circuits. GAIN 
and PHASE, INPUT IMPEDANCE, OUTPUT IMPEDANCE, and GROUP DELAY (except Spectrum 
version) are calculated over any frequency range required. The prgrams are in use regularly for 
frequencies between 0.1Hz to 1.2GHz. The effects on performance of MODIFICATIONS to both 
circuit and component values can be speedily evaluated. 


Circuits containing any combination of RESISTORS, CAPACITORS, INDUCTORS, 


TRANSFORMERS, BIPOLAR AND FIELD EFFECT TRANSISTORS and OPERATIONAL AMPLIFIERS 
can be simulated — up to 60 nodes and 180 components (IBM version). 


Ideal for the analysis of ACTIVE and PASSIVE FILTER CIRCUITS, AUDIO-AMPLIFIERS, 
LOUDSPEAKER CROSS-OVER NETWORKS, WIDE-BAND AMPLIFIERS, TUNED R.F. AMPLIFIERS, 
AERIAL MATCHING NETWORKS, TV I.F. and CHROMA FILTER CIRCUITS, LINEAR INTEGRATED 
CIRCUITS etc. 


STABILITY CRITERIA AND OSCILLATOR CIRCUITS can be evaluated by “breaking the loop”. 


Tabular output on Analyser I. Full graphical output, increased circuit size and active component 
library facilities on Analyser ll. 


Check out your new designs in minutes rather than days. 
ANALYSER can greatly reduce or even eliminate the need to breadbord new designs. 
Full AFTER SALES SERVICE with TELEPHONE QUERY HOT LINE and FREE update service. 


Used by INDUSTRIAL, GOVERNMENT, and UNIVERSITY R & D DEPARTMENTS worldwide. IDEAL 
FOR TRAINING COURSES. VERY EASY TO USE. Prices from £20 — £195. 


DRAUGHTING 
BBC MODEL B 


"DRAWER I" enables quality drawings to be created, and modified, quickly, easily and with the 
minimum of hardware. All of the major program semen are written in machine code giving 
excep uana speed of operation, i: 


DRG 4040-5570 
DATE! 18211785 
PEN 


EATURES MINIMUM HARDWARE REQUIRED 
Rubber Banding for drawing lines: BBC Model B. 
Solid or Dotted lines types. * Single or Dual Disc Drive — 40 or 80 track. 
Circles, arcs and partial or complete elipses. * TV or monitor. 
Vertical or Horizontal Text. * Games joystick, mouse or trackerball. 
* 


pr 


FE 
x 
x 
x 
x 
w Pan and Zoom. Dot Matrix Printer (Epson 80 series or Epson compatible — 
* Merging of drawings and library symbols from disc. BBC default mode preferable). 
w Up to 20,000 lines on a drawing. 
x Snap to a user defined grid. 
% Absolute or Relative cursor co-ordinates displayed on screen. 
* Input from analogue joystick, mouse or trackerball. 
w Output to standard dot matrix printer. 
* Price — From £45 ex. VAT. 


For illustrated leaflets and ordering information please contact: 
NUMBER ONE SYSTEMS LIMITED TEL: 0480 


Ref: B.B. TELEX: 


Crown Street, 
St. Ives Huntingdon, Cambs PE17 4EB 
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HEAD-MASTER ROM: Prints your own headed 


paper with Kaga/Canon or Epson 
compatible printer. Any size/shape 
headings, with graphics and different 
typefaces, to your (or our) design, on 
ROM, called with a simple *command. 
Prices from £25. For details and samples 
send A5 SAE to HEAD-MASTER, 206 Barker 
Drive, St.Pancras Way, London. 


Problems? try R-SOFT utilities! 

1. HOW-TO: An essential collection of 
software and instructions for frustrated 
new disc owners who want to move their 
programs to disc. 

3. ROMPULL + TAPEDUMP. 

4. AUTOMATIC DISC MENU: Includes 
sideways-RAM version, can boot from ROM, 
works with 2nd 6502. 

6. SWROM*: Puts your Basic / machine 
code programs in ROM format. 

7. RFS-GENERATOR: Generates ROMs for the 
*ROM filing system. This does not use 
the DFS workspace and is an ideal tool 
to run nasty programs from disc. 

All above packages £5.00 each. 

13. D-MASTER-V2: Superb disc ` backup 
program; needs 8271 and swram; £8.00; on 
16K EPROM £12.00. Upgrade for D-MASTER 
owners: £5.00/£9.00. 

16. OPUS SD/DD/Challenger: Disc menu, 
disc editor, disc indexer, etc. Please 
enquire for further details. 

17. D-EDITOR: based on D-MASTER-V2: will 
edit any disc D-MASTER-V2 can backup! 
£8.ØØ/£12.99. 

Please send SAE for full list. 

R-SOFT, 22 Marriotts Close, Felmersham, 
Bedford, MK43 7HD. (0234) 781730. 


MARKS AND STATISTICS For teachers and 
lecturers. Simple to use spreadsheet 
format. 330 students per file. Up to 300 


subjects. Sorts, analyses, normalizes, 
calculates means, applies weighting 
factors. Prints histograms and lists. 


Full documentation supplied. Disc (4Ø or 
8Ø track) £17. In-Form, 73 Woodfield 
Park, Colinton, Edinburgh EH13 ØRA. 


MILLENNIUM - The gare 5 
true - simultaneous play on 2 BBC-B's 
linked via modified  RS423 cable. 
Interstellar Strategy game with 3 
Scenarios * 3 victory levels. Also one 
computer play. Disc £8.95 (state 40/80 
track); with cable £12.95. Cheque/PO to: 


dream come 


Falconsoft, P.0.Box 141, Welling, Kent 
DA16 2EB. 

Disc starter pack, Toolkit, and 
Discmaster as new £6 each or three for 
£15. BEEBUG magazines in official 
binders Vols.1/4 £6 each or four for 
£2Ø. Library box with 12 games and 
utility discs - £15. Tel: (0243) 603228. 
Opening Knight. The BBC-soft approved 
enhancement to White Knight MK12. 
Opening repetoire program provides over 


2000 lines, and Knight Writer provides a 
move printing facility. Many unsolicited 
testomonials. Tape White Knight owners: 

order version IT on tape (£5.50), viR on 
2 ROMs (£12) or v2D on disc (£7). Disc 
White Knight owners order version 2N 
(£7). Versions 2 now include variation 
name feature. To order, or for free 
information pack write to Bernard Hill, 
Hawthorn Bank, Scott's Place, Selkirk 
TD7 4DP. 


AMX mouse, Superart colour ROM and 4ØT 
disc £62. BEEBUG Toolkit ROM £290. 
Wordwise ROM £22. M/C monitor ROM £18. 
Solidisk 64k sideways RAM and  40T 
software £65. All including original 
documentation. Telephone Derby 850518. 


processor 


Acorn 7Z8Ø 2nd with all 
software and manuals plus additional 
programs. As new. £225.00. Tel:  P.Smith 


(0730) 64059 anytime. 


SUPPLEN 


TENT 


Fred Daly, David Spence 
and Chris Forecast 


Image is the most sophisticated graphics 
package ever produced for the BBC Micro 
Computer, yet it is exceptionally easy to use. 
Image can be used with a variety of input 
devices (joystick, mouse, graphics tablet etc.) 
and can print out designs either on black and 
white or a colour printer. You can create your 
own colours or patterns on the screen and use 
these in your overall design; text can also be 
magnified, rotated or reflected. The second 
disc, the Sketchbook disc, stores designs and 
displays them. 


Image is ideal for: 


* Primary schools for art, design and illustrated poetry 

* Secondary school courses in the art and design areas 

* Special schools (for use by handicapped children) 

* Further and higher education colleges involved in art and design or craft, design 
and technology 

* Design studios to help conceptualise book covers, advertisement layouts etc. 

* Home computer users wanting to extend the graphic abilities of their machines 

* Anyone wanting to explore free and creative image processing 


Included in the package is an 80 page full colour booklet with many illustrations 
BBC(B/B+ ) 40 track disc (32888 8) and BBC (B/B+) 80 track disc (32971 X) 
£39.95 + VAT 


HOME USERS — The Image package is available from Cambridge University Press, 


(Elizabeth Wilson, ) Tbe Edinburgh Building, Shaftesbury Road, Cambridge 
CB2 2RU 
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SCHOOLS ONLY 
Please send me on 14 days approval IMAGE (32888 8) BBC 40 track disc or 
IMAGE (32971 X) BBC 80 track disc. 
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[ENT 


Acorn User — 
Exhibition 


Electron and 
BBC Micro User 


| Electron and 


Barbican Centre, ` 
Golden Lane, 
London FC2 


24-27 July — 


UMIST, Manchester 26-28 Sept 


Royal Horticultural 7- 9 Nov 


BBC Micro User Halls, Westminster 


Discounts Upd 


ate 


Chalksoft are offering 10% a discount to ` 
 BEEBUG members on all their educational 


software, Just 


quote your 


BEEBUG 


membership number with any order, 


Chalksoft can be found at P.O.Box 49, 
Spalding, Lincs. PEII| 1NZ. | 


BBC-B with Acorn DFS, 1.2 O.S and 
manuals etc. £270. Tel: Hatfield (97072) 
69245, 


The foods you eat - a program to 
calculate the calories, fat, protein, 
carbohydrate, vitamins and minerals in 
470 foods, then compare your intake with 
the recommended levels. Disc only - 
please specify 40 or 80 tracks. £12.50 
from David Bender, 17 Hightrees Court, 
Manor Court Road, London W7 3HD. 


For sale. Taxan Kaga KP81@ printer. 2 
years old, as new, £140 ono. Tel: (0582) 
36879, 


Sale. Nightingale modem with Commstar 
ROM, leads and manual, £90. Tel: 
860139. 


(0453) 


HIED 


ADS (continued) 


Not just Mandelbrot but Psychebrot, a 
psychedelic perambulation through the 
Mandelbrot set. This dynamic display 
delighted visitors to the "Computer 
Images' exhibition at Brunel University. 
Up to 60 scintillating scenes on a 
single disc for £10. CODIL Language 
Systems, 33 Buckingham Road,  Tring, 
Herts HP23 4HG. Tel: (044282) 4985. 
State 40 or 80 track. 


'Weathermap-Forecast' England and Wales. 
A program that uses local weather data 
to produce a weather forecast, with a 
graphic weather-map display of forecasts 
or weather reports. Weather reports from 
a forecast/report file can be displayed 
in a graph format, showing details of 31 
reports on a one page screen display. 
BBC (B). Cassette only, £7.50 incl p&p. 
Micromet, 25 Junction Road,  Leek, 
Staffs ST13 5QL. Tel: (0538) 372628. 


(ENT 


This voucher is worth 


admission to the 

Fourth Official Acorn User 
Exhibition. One voucher 
per ticket only. 


How to get there 


By train: Holborn Viaduct, 
Cannon Street, Broad Street, 
King's Cross, St. Pancras, 
Liverpool Street. 

By underground: Barbican, 
Moorgate, St. Pauls, Bank, 
Liverpool Street. 


Barbican Centre, 
Golden Lane LONDON EC2. 
24th-27th July, 1986. 


Four days of non-stop news, 
advice, information and bargains. 


Thursday 24th - 10.00am to 6.00pm. 
Friday — 25th - 10.00am to 8.00pm. 
Saturday 26th - 10.00am to 6.00pm. 
Sunday 27th - 40.00am to 4.00pm. 


Lynn Lloyd 
(0923) 677222 


BEEBUG XI 


For advertising details please contact: 


Yolanda Turuelo 
on or 


or write to 
PO. BOX 50 
St. Albans Herts. 


on 


(0727) 40303 


SUPPLEMENT 


WE ALWAYS TRY TO SEND YOUR PROGRAMS ON THE 
SAME DAY WE GET YOUR ORDER, THAT'S WHY IT'S 
CALLED SPEEDYSOFT! All programs normally in stock 
before we advertise them! FOREIGN ORDERS WELCOME, 
satisfied customers in 64 countries over 3 years. UK prices 
include VAT: export prices are the same, plus p&p because of 
the extra work involved. Pay by sterling cheque, bank draft 
or postal order. All orders must be prepaid: we send your 
programs as soon as we get your money!. It's fastest to order 
by phone from any country with your VISA, EUROCARD, 
MASTERCARD or ACCESS. Call 01-846 9353, 24 hrs, 7 days 
a week. BIG FREE ILLUSTRATED CATALOGUE WITH EVERY 
ORDER WITH DETAILED REVIEWS, SCREEN SHOTS, ETC. 
includes lots of classic serious software, too. Send £1.00 cash 
(refunded with first order) for catalogue only. 


INTROLLER 


This add-on will control the speed of all keyboard and joystick 
operated programs. FREEZE frame and variable speed from normal 
to almost freeze. Plugs in to the Tube port. If you want to use the 
Tube for something else at the same time, order the Extension as 
well. Useful for debugging programs as well as playing games! 
(Nidd Valley) SPEED CONTROLLER £14.95 TUBE EXTENSION £8.95 


INI OFFICE 2 


Enhanced version of the íamous suite of programs. WORD 
PROCESSOR: SPREADSHEET: DATABASE: CHARTS: 
COMMUNICATIONS: LABEL PRINTER All on one disk. All modules 
6502 and AMX Mouse compatible. Original 'Mini Office' files will 
load, too. 60-page ring-bound manual. Staggering value-for- 
money. (Database) Cassette £14.95 Disk (State 40 or 80 Track) 


TOR 


FLEET STREET El 


"The supplied graphics, the ease with which layouts can be put 
together and the ease with which effects can be applied to text mean 
that this is an all-round success ... an invaluable release for print- 
minded BBC users." (A&B Computing 03/86) “If you have the proper 
combination of imagination and a little business sense, the package 
certainly offers a way of making money with your computer. It 
certainly makes the most of the BBC micro." (Your Computer 
03/86)(Mirrorsoft) BBC B and B+. 2 Disks: no cassette: (State 40 or 80 
Track) £39.95 


EPLAY 


"A magical piece of equipment ... very useful if you can only buy 
the tape version of a program ... highly recommended.” (A&B 
Computing 12/85) Transfer any program, just about, from tape to 
disk. State disk system clearly when ordering. (Vine) REPLAY ROM 


£35.00 


STU 


This program contains over 20K of machine-code to convert your 
Beeb into a 4-voice synthesizer with an 8-track digital recorder with 
rhythm and drum machine. Comes with 4 music demos. Select any 
of 32 instruments by name and compose music. (Beebugsoft) 
Cassette £17.00 Disk (40/80 Track OK) £22.00 
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Studio 8 


Citadel 


INGS 


"Sets new standards for cassette adventures." (Your Computer 02/86) 
^One of the most advanced, original and involving text adventures 
you'll ever play ... without peer in terms of scope, imagination and 
involvement." (Melbourne House) 2 Cassettes (no disk) £15.95 


SOUTHERN BELLE 


"Steam train fanatics and simulation freaks will love it. The 
atmosphere is terrific (smell that smoke) and the options mean its 
got lots of lasting interest." (Amstrad Action 11/85) "Once 
mastered, it's brilliant. The job becomes very exciting and involved 
when attempting speed runs ... there's a great deal of skill 
involved and hardly any luck, a must for simulation lovers.” (Crash 
11/85) (Hewson) Cassette £7.95 


POWERPLAY 


"A game brimming over with originality ... Powerplay's most 
outstanding features are its high-quality graphics and sound ... 
comes with over 2000 questions, which should keep the most avid 
player hooked for some time ... AN OUTSTANDING PIECE OF BBC 
SOFTWARE." (Personal Computer World 02/86) Powerplay, the 
Game of the Gods, is by Arcana. 4 skill levels. Acorn Speech Chip 
makes it talk to you. Input your own questions if you wish. Disk 
(40/80 Track OK) £14.95 


SPEECH! 


“A QUITE REMARKABLE PIECE OF PROGRAMMING ... 
INCREDIBLY EASY TO USE. THE END RESULT IS AS GOOD AS 
ANYTHING I'VE HEARD THIS SIDE OF THE AMIGA ... A REALLY 
SUPERB RELEASE.” (Popular Computing Weekly)Just type in 'SAY' 
and then some plain English. Then add pause, stress, intonation as 
you wish. It really is that simple! (Superior) Cassette £9.95 Disk 
(State 40 or 80 Track) £11.95 


CITADEL 


"Everything that 'CASTLE QUEST' was and more and more and 
more. This game is extremely good ... the graphics are very good. 
Well worth the cash. " (Computer Gamer 01/86) "Everyone can 
enjoy Citadel the adventure and will feel the compulsive urge to 
master this game." (A&B Computing 02/86) Over 100 screens. 
Sticks OK. No good with Solidisk DFS 2.0. (Superior) Cassette £9.95 
Disk (State 40 or 80 Track) £11.95 


HARRIER 


"This game has almost everything. It is a combination of flight 
simulator, shoot em and strategy games ... this will not convert 
you if you don't like flight simulations, but if you do, buy it.” 
(Micro User 02/86) "A classy, polished and highly addictive 
simulation, this is a game to keep.” (Computer & Video Games 
02/86) Choose either Practice or Combat with 3 skill levels. 30 
commanu keys. 28-page manual. No Stick. (Mirrorsoft) Cassette 
£9.95 Disk (40/80 Track OK) £12.95 

SE! 


WORD/FONT/SPELL 


You can't beat the WORDWISE-- ROM. Compatible with 6502 2nd 
processor. Our price £50.00 saves you £6.35. FONTWISE from 
Clares gives you 10 new type faces to choose from, either normal 
or condensed. Not 6502 compatible. Disk (State 40 or 80 Track) 
only £12.00. SPELLCHECK 3 ROM from Beebugsoft. A Rom and a 
dictionary disk with 6,000 words check your spelling. Add words to 
the disk as you wish. 6502 compatible. State 40 or 80 Track. Our 
price £34.00 saves you £2.00. 


IF YOU DO NOT WISH TO CUT THIS MAGAZINE, PLEASE WRITE YOUR ORDER OUT CAREFULLY ON PLAIN PAPER AND QUOTE REFERENCE 'ACU14.' 
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POST TO: SPEEDYSOFT (AcU14) 


Signature: ae Expiry Date unu. 

Please write clearly. If we can't read it, you won't get it. 
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37 CHURCH ROAD, LONDON SW13 9HQ, ENGLAND. 
For CATALOGUE ONLY, send £1 cash. Refunded with your first order. 
My computer IS ....... a... .. Lenclose a cheque/PO payable 
to Speedysoft OR charge my VISA/ACCESS/EUROCARD/MASTERCARD 
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ram Name 


Cass/Disk 


Postage & Packing 


Outside Europe ADD £2.00 per program 


| Eg EJ EJ 


UK add 1.00p per order 
Europe ADD £1.50 per program 


Total 


Although the standard BBC micro has 
very considerable graphics potential, it 


lacks a good number of commands to enable 
that potential to be fulfilled. This has 
been rectified somewhat with the 


availability of graphics packages such as 
those from Computer Concepts, and 
Acornsoft. And now the Master comes ready 
packaged with on-board graphics firmware. 
Many users, however, are still without quite 
essential graphics routines. 


To try to bridge the gap, we 
here a very effective fast colour fill 
routine that is both capable of filling 
very complex shapes, and which also gives 
the user full control over the filling 
logic. In other words, you are able to 
specify not only the colour of fill, but 
also the response of the fill routine to 
boundaries of any colour. 


In order to achieve the necessary 
speed of operation, the routine is of 
course written in machine code, but no 
knowledge of machine code is necessary to 
use it. To start with, type in the listing 
of the program called "FILLER" at the end 
of this article. Take care to copy it 
exactly as presented, then save the 
program to cassette or disc just as if it 
were a normal Basic program. 


The program just saved is in 
assembler. To get to machine code we need 
to assemble it. To do this, type RUN. You 
will see the assembly listing scroll up 
the screen, and if no errors are reported 
the code will be assembled into an area of 
memory at $&900 in your machine. The code 
is 722 bytes long, and is therefore just a 
shade less than three "pages" in length. 


To save the machine code for later use, 
tyve: 
*SAVE FILL 900 +309 


present 


To test out the routine we can use the 
program called "SPIRAL" listed below. This 
draws a double spiral in any graphics 
mode, and uses the fill routine to fill 


19 REM PROGRAM SPIRAL 
20 REM VERSION BØ.5 
30 REM AUTHOR G. Blackwell 

40 REM BEEBUG JULY 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

199 MODE 7 

119 INPUT''"MODE: "M 

120 IF M>5 OR M=3 VDU7:GOTO 1090 
130 MODE M 

140 MOVE 500,500 

150 FOR A=3Ø TO 1800 STEP 30 

160 X=5ØØ+A/4*COSRADA 

170 Y=5ØØ+A/4*SINRADA 

180 DRAW X,Y 

190 NEXT 

200 DRAW 905,500 

219 FOR A-1800 TO 180 STEP -3Ø 

220 X=500+(A/4-45) *COSRADA 

230 Y=5ØØ+(A/4-45) *SINRADA 

240 DRAW X,Y 

250 NEXT 

260 REPEAT 

270 VDU30:PRINT' SPC (20) :VDU3Ø 

280 INPUT '"Start X,Y? "X%,Y% 

290 UNTIL POINT (X%,Y%)=Ø 

300 AZ-&FFFFFFO]l:B$-&FFFFFFFF 

310 C$-B$:D$-C$ 

320 paint-&900:CALL paint 


either the spiral itself or the 
background. To try this out, first type in 
the listing and save away the program 
before running it. If you have corrupted 
the machine code fill routine since 
assembling it (e.g. by switching off your 
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machine etc) then reload it by tyoing: 
*LOAD FILL B 
run the Basic SPIRAL program. You 
will first be asked for a graphics mode - 


Then 


enter a number between Ø and 5 (but not 
3). The spiral will be drawn in outline in 
the chosen mode, and you will be prompted 
for the co-ordinates of the start of the 
fill. X must be between 0 and 1279, and Y 
must fall between Ø and 1023. If the point 
falls within the spiral, then the spiral 
itself will be filled; if not, the 
background is filled. As you will see, the 
filling is fast and efficient, and copes 
with the intricacies of the shape quite 
satisfactorily. 


In order to use the fill routine in 
your own programs you will need to pass 
two sets of parameters to the code. The 
first is simply the X and Y  co-ordinates 
of the start of fill, and these should be 
within the range already specified, and 
should be placed in the X% and Y$ resident 
variables before your program calls the 
fill routine, achieved on line 280 in the 
SPIRAL program. 


The other parameters. concern the 
filling logic, and are a little more 
complex. A% - and in mode 2 also B$, C$ 


and D$ - provide a colour mask for the 

fill ` process. Each of these integer 
variables holds a 4-byte number, each byte 
giving the effect of the fill on one of 
the displayed colours: A% gives the 
transformation for logical colours 3,2,1,0 
in that order; B% covers colours 7,6,5,4; 
C$ 11,18,9,8; and D$ 15,14,13,12. Each of 
the 4 variables thus contains the masks 
for four colours, each mask being 
expressed by a 2 digit hex number. 


In each case, the mask either 
indicates what colour a given logical 
colour will be changed to after the fill, 
or it indicates that a given logical 
colour is to be regarded as a fill 
boundary. A mask of FF(hex), or any value 
greater than JE, | means that the 
corresponding colour is to be regarded as 
a boundary colour. A mask of the form 22, 
06, ØE etc. indicates the replacement 
colour for a non-boundary pixel. For 
example: 


As = &FFO2FFUI 


logical colour 3 2 ] Q 
mask value &FF &02 &FF &01 


indicates that: 


Colour 3 (mask &FF) is a boundary 
pixel 

Colour 2 (mask &02) is passed over 
without changing (i.e. change 
colour 2 to colour 2) 

Colour 1 (mask &FF) is also a boundary 
pixel 

Colour Ø (mask &01) is 'painted' with 
colour 1 (if within the 
boundary) 


Extending the principle to mode 2: 

BS = &FFFFÜDFF: C$ = &FFFFFFFF: D = C$ 
would make colours 4-15 all boundaries, 
except colour 5 pixels which are to be 
changed to colour 13 (hex D). These 
variables are not affected by the routine, 
and so do not need to be re-set every time 
it is used in the program, unless a 
different colour mask is needed. Moreover, 
in two-colour modes only two bytes of A$ 
need be set.For example A% = &FFÜl. As a 
general principle however, any colour used 
for filling should itself be defined as a 
boundary colour, to avoid repeated 
overfilling. 


To check this out in a practical 
example, we can take a look at the SPIRAL 
program. This uses the following masks, 
set up on lines 3ØØ and 31Ø: 

AS &FFFFFFØ 

B3 &FFFFFFFF 

C$  &FFFFFFFF 

D$ &FFFFFFFF 
In other words, logical colour zero (the 
black background) is to be replaced with 
logical colour 1. All other colours are to 
be treated as boundaries. In modes Ø and 
4, logical colour 1 is white by default. 
In modes 1, 2 and 5 it is red; and if you. 
run the SPIRAL program in these different 
modes, you should indeed see the fill 
execute in the corresponding colour. You 
can of course redefine any of the logical 
colours to any of the 16 possible physical 
colours available on the BBC micro using 
VDU 19. See the User Guide page 382 for 
further details. 


As a further example of using the fill 
routine, we will look at the colouring of 
a simple box on screen. The program to 


draw the box is listed below under the 
name BOX. When you run it, you will see it 


draw a rectangle on screen in mode 2. To 
fill the box, you must first make sure 


that you have the fill routine loaded into 
memory. If not, execute:. 

*LOAD FILL 
Then set up A$, B$, C$ and D$ to give the 
desired effects when FILL is called. For 
example, the following data: 

A%=&FFFFFF02 

B$S-&FFFFFFFF 

C$-B$ 

D$-B$ 
will cause a green fill. To fill the 
rectangle, set X$ and YS to any 
co-ordinates within the box - for 
X$-500 and Y%=5Ø0. Now if you execute: 

CALL &900 


you should see the rectangle filled in 


green. 


100 REM BOX 

118 MODE 2 

120 MOVE3ØØ,3ØØ 
130 DRAW3ØØ,79Ø 
140 DRAW900,700 
150 DRAW9ØØ,3ØØ 
160 DRAW300, 300 


If you set X$,  Y$ outside the 
rectangle, you should see the background 
filled, and if you alter the value of  A$ 
you will change the colour of the fill. 
For example: 

$=&FFFFFFØS 
will fill in cyan. 


To illustrate how to incorporate this 
into the program itself, you could add the 
following lines to the BOX program: 

10 *LOAD FILL 

200 X$-500:Y$-500 

210 AS=&FFFFFFØG 

220 B$-&FFFFFFFF 

230 C$-B$:D$-B$ 

240 CALL &900 
The program will then load the machine 
code, draw the rectangle, set up the 
necessary parameters, and execute the 
fill. It is left to the reader to add a 
line to avoid reloading the machine code 
if it is already present. 


TECHNICAL NOTES 


As the program is presented the 
machine code routine is assembled at &900, 
and occupies three pages of memory. This 
should cause no problems unless you wish 
to make use of the RS423 port, the 
cassette port, or the function keys during 


example ` 


the actual running of the program. If you 
do, then you will have to assemble the 
code into a different area of memory. To 
do this, just change line 11Ø in the 
assembly listing of FILLER, and alter the 
parameters used to save the assembled 
code, and of course the calling address. 


Calling the routine once it is saved 
away as machine code can be accomplished 
in a number of ways. For example, you 
could incorporate the line: 

*LOAD FILL 
early in a program, and call the routine 
each time that it is needed with: 

CALL &900 
You may even call the routine directly 
from disc just as if it were an extra 
command in Basic by typing: 

*FILL 


from immediate mode or from within a 
program. This will load and then run the 
fill routine. Cassette users will need to 
call: 

*RUN FILL 


to achieve the same effect. 


NEXT MONTH 
Next month sees the completion of this 
article, with a short program to draw 
and fill a map of the British Isles, 
together with a more detailed 


explanation of how FILLER operates. 


1Ø REM FILLER 
20 REM VERSION BØ.5 

3Ø REM AUTHOR G. Blackwell 
AQ REM BEEBUG JULY -1986 


50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 


108 FOR C=Ø TO 3 STEP 3 
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110 
120 
139 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


P%=&900 

[OP'TC 

paint 

STX& 7/02 LDA&465: STY& 72: RORA 
ROR&72: RORA: ROR& 72 
LDA#135:JSR&FFF4:STY&8F 

LDX mode,Y:BPL P%+3:RTS:LDYHØ 
LDA&8F: AND# 3: STA& 84 

.L99 LDAzp,X:STA&85,Y: INX: INY 
CPY48:BNE L99:LDA&89:STA&8D 
LDA#3: SEC : SBC&8D : TAX: LDA& 461 
.L9 CLC:RORA:ROR&70:DEX:BNE L9 
STA&71:LDA#&87 
LDX#4:STX&77:DEX:STX&76:LDY#255 
STY&78:.L9C INC&78:INC&76:LDYHØ 
STY&75:LDX&8A:LDA(&76) ,Y:BMI LOR 
.L9P LDY&88:RORA 

.L9Q ROR&75:DEY:BPL L9Q 
DEX:BNE L9P 

LDA&75:.L9R LDY&78:STAcoltab,Y 
CPY#15:BNE L9C 

LDAcoltab:LDY#9: STY&8E:LDX&88:CLC 
«LOS TAY:ORA&SE:STA&SE: TYA: ROLA 
DEX:BPL L9S:JSR rout3:STA&7D 
STA& 7F : LDA& 7A : STA& 7C : STA& 7E 
LDA#1:5STA&82:LDA#Ø:PHA:JMP L71 
rout] 

LDA&71:CMP&8D:BCC L12:BNE L1] 
LDA& 79: CMP&8C:BCC L12 

-L11 LDA#&FF:STA&77:RTS 

.L12 LDA&85:AND&7Ø:STA&73 
LDA&71:STA&74:LDX&84:BEO LIB 
oLIA CLC:LDA&73:ROLA:STA&73 
LDA& 74 3$ROLA: STA&74:DEX:BNE LIA 
.LIB LDA&72: EORS255: STA& 76 
AND#7:CLC:ADC&73:STA&73:LDA#9 
ADC& 743 STA&74 

LDA& 76 s:LDX#3:.L1C CLC: RORA:DEX 
BNE LIC:CLC:STA&76:STX&75: RORA 
ROR& 75 3 RORA : ROR& 75 : ADC& 76: STA& 76 
LDX&87:.LlD LDA&73:ADC&75:STA&73 
LDA&74:ADC&76:STA&74:DEX:BNE LID 
ADC&86:STA& 74 
LDA&7Ø:AND&88:STA&75: TAY 

LDA (&73,X) :STA&89:STX&76 
LDX&8A: .L1E ROLA:DEY:BPL LIE 
LDY&88 : ROL&76:DEX:BNE LIE 
LDX&76:LDA coltab,X:STA&77:RTS 
.rout2 | 

LDA& 75 :EOR&88:STA&76:LDA&8RB 
LDX&76:BEO L22 

¿L21 ROLA:ROL&77:DEX:BNE L21 
.L22 EOR#255:AND&89:0RA&77 

STA (&73,X) :RTS 

.rout3 


660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1990 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


LDA&70:STA&78:STA& 7A 

LDA&71:STA& 79: STA& 7B 

JSR routl:LDA&77:BMI L34 

LDA&89:BNE L31:JSR rout3A:STA&7A 

.L31 JSR rout4:LDA&77:BMI L32 

LDA&89:BNE L3A:LDA&75:CMP&88 

BNE L3A:JSR rout3A:JSR rout3C 

JMP L31:,.L3A JSR rout2:JMP L3] 

-L32 LDA&70:STA&78:LDA&71:STA&79 

LDA&7A:STA& 70: LDA& 7B: STA& 71 

JSR rout] 

.L33 LDA&77:BMI L34 

LDA&89:BNE L3B 

LDA&75:BNE L3B:JSR rout3B:JMP L3C 
.L3B JSR rout2 

.L3C JSR rout5:JMP L33 

.L34 LDA&70:STA&7A:LDA&7]:STA&7B 

RTS 

.rout3A LDA&70:AND&85:STA&70:RTS 

.rOut3B LDA&70:ORA&88:STA&70 
.rout3C LDA&8E:LDX#9:STA(&73,X) 

RTS 

.rout4 

DEC& 78 :LDA&70:CMP3 255 :BNEP2 44 

DEC&71:JMP rout] 

.routb5 

INC&70:BNEP$-4:INC&71:JMP rout] 
.rout6 

STA& 71 : STX&8Ø:STY&S81 :LDA&82 

EOR&72:BMI L60:LDA&72:BEQ L6F 

CMP#255:BNE L60:.L6F RTS 

.L60 JSR rout5:SEC:LDA&70:SBC&80 

LDA&71:SBC&81:BPL L6F 

TSXs:CPX430:BCC L6F 

.L6l1 LDA&77:BMI L60:PLA:STA&83 

PLA: STA& 73 

LDX#Ø:.L62 LDA&70,X: PHA:LDA&8Ø,X 

PHA: INX:CPX#4:BNE L62:RTS 

.rout7 

STA& 82: PLA: STA& 72: PLA: STA&7F 

PLA: STA& 71 : STA& 7D: PLA: STA& 7E: PLA 

STA&70:STA&7C:JSR rout3 

LDA& 7A: STA& 7Ø : LDA&7B 

LDX&7E:LDY&7F:JSR route 

.L71 CLC:LDA&72:ADC&82:STA&72 

LDA&78:STA&7Ø:LDA&79 

LDX&7A:LDY&7B:JSR rout6 

LDA& 82 : EOR#255 :STA&82: INC&82 

CLC: LDA& 72 3: ADC& 82 : CLC : ADC& 82 

STA&72:LDA&78:STA&79:LDA&79 

LDX&7C:LDY&7D:JSR route 

LDA&7E: STA&70:LDA&7F 

LDX&7A:LDY&7B:JSR rout6 

PLA:BNE rout7:RTS 

e ZD 


FONTWISE PLUS 


Many business computers produced today 
can offer a range of different fonts for 
use both on the screen and to be printed 
out on paper. The BBC micro has some 
ability to display different fonts on the 
Screen by  redefining the character set, 
but no way of reproducing this on paper 
except by the slow and inflexible use of 
screen dumps. 


Clares has changed all this with 
Fontwise Plus - a very flexible package 
that gives users of Wordwise Plus, View, 
or Mini Office, with a printer capable of 
quad density graphics (most Epsons and 
compatibles), the ability to print text in 
whatever style they may want. 


Fontwise Plus 
: Clares Micro Supplies 
: 98 Middlewich Road, 
: Rudheath, Northwich, 
: Cheshire CW7 7DA. 
: Tel. 0606-48511 
Price : 


Product : i | 
Supplier 


Fontwise Plus is supplied on a 40 or 
80 track disc along with a twenty page 
manual (printed, of course, using Fontwise 
Plus). The package is used separately from 
the word processor. When the disc is 
booted a menu screen allows you to switch 
between View, Wordwise Plus, and Mini 
Office, load the text file to be printed 
and, after changing any of a variety of 
controlling factors, print out the file in 
the typestyle chosen. 


lets pou produce documents 
with a variety of e ia Rie 
Q9poGsusgügs. uv dou 


fo produce th € 
make full use of all the 
normalt features of the 
word processors. 


e tax t 


There are twelve  typestyles provided 
on the disc. These range from Gothic and 


Script to a very effective shadowed 
outline font. Each font can be printed in 
normal size (about the same size as your 
printer's normal print), and in condensed 
or enlarged form. The characters can also 
be evenly or proportionally spaced. 


The Fontwise Plus characters are based 
on an 18 by 17 grid. They are printed, a 
line at a time, in three passes on the 
printer with a very small (one 216th inch) 
paper feed between each pass. The result 
is very good and remarkably fast - only a 
little | slower than the built-in  NLO 
printing on most printers. 


The package also looks after the 
formatting of the print on the paper, 
allowing all the normal control commands 
to fix the margins, indentations, 
centring, page length, line spacing, 
justification, and tab positions. 


Some of the print control commands, 


such as left margin and type size, can be 
changed from Fontwise Plus's menu screen. 
However, these and many others are altered 
with control codes embedded in the text 
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itself. 


So you can change type size and 
style within the document and alter the 
format of the printed result. 


Wordwise Plus users will be very 
familiar both with the idea of the 
embedded commands and their actual syntax. 
The codes are preceded in the text by a 
'green' code and followed by Return. The 
only difference is that the codes must be 
followed by the Return, not the  'white' 
code that Wordwise Plus also allows, and 
must each be on a line of their own. 


The vast majority of the codes are 
exactly the same as used in Wordwise Plus. 
This means that on the whole you can write 
your document exactly as you would 
normally do, except that it is actually 
printed by the Fontwise Plus program. 


Mini Office user's will also find 
Fontwise Plus reasonably simple to adjust 
to as this word processor follows Wordwise 
Plus quite closely. Again, a few 
alternative commands are provided to avoid 
clashes within the word processor. 


For View user's, things are not quite 
SO simple. The commands are embedded in 
the text using the edit command function 
(£8), which is Simple enough, and 
parameters entered in the text area on the 
same line. Again, only a single command is 
possible on each line. However, as the 
command  mnemonics for Fontwise Plus are 
based on those of Wordwise Plus, a 
different set is used for View to avoid 
conflicts and allow a normal previewing of 
your text in View. More importantly, the 
whole concept of rulers in View is ignored 
by Fontwise Plus and so View users must 
learn the Wordwise Plus principles to use 
this program. 


However, once the problems of your own 
word processor have been overcome, 
Fontwise Plus provides a very efficient 
way of printing text in a variety of 
fonts. The only real drawback is the 
limitation of the twelve fonts supplied. 
That is where Clares' other Fontwise 
package comes in... 


FONTWISE FONT EDITOR 


The Fontwise Font Editor extends the 
use of Fontwise Plus no end. Not only does 
this second disc provide a further 10 
fonts but also an editor to alter the 
fonts provided or create entirely new ones 
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of your own design. 


The Fontwise Font Editor is basically 
a character designer like the numerous 
programs published to design characters 
for the Beeb itself, albeit on an 18 by 17 
grid. However, there are some features of 
the editor that make it so good as to be 
miles ahead of any previous designer. 


The first is its speed. On the screen 
is displayed the entire character set of a 
font as small as the resolution of a mode 
4 screen will allow. The character 
currently selected is also displayed much 
enlarged. Moving the cursor around the 
character set puts each character in turn 
in the enlarged box. That's pretty usual 
but the speed with which it's done puts 
all previous designers to shame. 


Product :Fontwise Font Editor | 
Supplier : Clares Micro Supplies 

: 98 Middlewich Road, 

: Rudheath, Northwich, 

: Cheshire, CW7 7DA. 

: Tel. 0606-48511 

2220  — 


A preme is edited. in the anlara 
box by toggling individual pixels on and 
off. In addition, the whole character can 
be shifted around within the confines of 


the grid. Characters can be transferred 
from one position in the character set to 
another - very useful when altering a 
complete set, as a 'G', say, is most 
easily created by altering a 'C'. 


Once the whole set is finished it is 
saved to disc. To do this it is  'scanned' 
and converted into the data for the three 
printing passes. Again this is 
terrifyingly fast considering what is 
being done. The fonts are saved with a 
fixed file format of  'F' followed by a 
number. In this way Fontwise Plus is able 
to recall them by number according to 
simple embedded commands in your text. 
There is no limit to the number of fonts 
you can create and use in this way, 
although, of course, the DFS limits you to 
the number of files. 


The Fontwise Font Editor provides a 
very valuable extension to a very useful 
product. Together, Fontwise Plus and the 
Fontwise Font Editor enable you to produce 
very professional looking documents with a 
bare minimum of equipment and at a very 
reasonable cost. =] 


TEO 


Machinery have now released 
mn sort ROM, sold with the 


users. E Rochford, who reviewed 
he Magic Modem for BEEBUG, gives 
MS assessment. 


Product : Commsoft Terminal ROM 
Supplier : Soft Machinery 

: 68 Botley Road, 

: Oxford QX2 OBU. 

: Tel: 0865-726803 
Price : ROM £36.22 inc VAT & P&P 


: Modem Driver (Disc) £6.90 inc. 


Soft Machinery were responsible for 
writing the original viewdata terminal 
software for Prestel Microcomputing. Their 
latest release is Commsoft, supplied on a 
16K ROM and featuring both viewdata and 
scrolling text terminals. Compatible with 
Model B, B+, Master and 6502 second 
processors, it will operate with manual 
dial modems or can control intelligent 
modems with its Modem Command function. 
Alternatively, modem drivers can be 
supplied on disc for most of the popular 
units around giving control of auto dial, 
auto answer, and baud rate selection if 
possible from software. The software 
supports tramsmission rates of 300/300 
baud, 1200/75 and 75/1200 baud, but not 
1200/1200 full duplex. 


VIEWDATA 

The  viewdata terminal mode provides a 
large range of options which are selected 
by the Beeb's function keys. No key strip 
is needed as help is available at all 
times in the form of a pull-down screen 
menu. Further commands are available via 
the cursor, Delete and Copy keys sometimes 
in conjunction with Shift or Ctrl. The 
facilities included are loading and saving 
of frames, frame printing, tele-software 
downloading, both to buffer and filing 
system, and frame tagging and recall. 


The Edit function provides a very 
sophisticated off-line frame editor for 


creation of mailbox frames with an 
on-screen, pull-down, help menu. All 
viewdata display attributes can be 


utilised and a pixel editor allows complex 
graphics frames to be produced with 
relative ease. 


TEXT 
The scrolling text terminal in 
Commsoft provides access to Bulletin 


Boards and Telecom Gold etc. 
viewdata terminal, most of the facilities 
are via functions keys with a pull down 
menu for instant help. The terminal can 
operate in 40 or 89 column mode and a 
split-screen window can be defined for 
local echo of keyboard input. Incoming 
text can be sent to printer, RAM buffer or 
direct to the filing system. Previously 
created text files can be uploaded either 
from buffer or direct from disc. 


Like the 


Error corrected file transfer is by 
the popular Xmodem standard and allows 
files of all kinds to be transmitted. All 
the usual status messages are provided and 
there is monitoring of incoming/outgoing 
data in a split-screen window. 


AUTO LOG-ON 


Commsoft has the ability to program a 
set of function key definitions that are 
held on a  viewdata frame. IDs and 
passwords are concealed within the frame 
and extracted by the terminal software. 
The frame is created using the viewdata 
Edit function and enables dial-up, log-on 
and routing to your favourite page by a 
single key stroke chosen from your menu. 


CONCLUS ION 


The one thing about Commsoft I can say 
that bothers me is that the modem driver 
is on disc and not in the ROM, but then I 
may be lazy! That apart, it is hard to 
fault software as refined as this. The 
facilities are excellent, it is very user- 
friendly and comes with a really good 
manual. In my opinion, this is the best 
terminal software yet for the Beeb. == 


| SPECIAL. OFFER | 
po et is. available | from BEEBUG | 
| Retail (not High Wycombe) at the special 
|price of £28 plus psp. ` Comsoft is also 
| supplied with the Magic Modem „ (reviewed 


terest, light pens 
have gone out of 


` of the ubiquitous 
Colour Stick could 
hs reports. 
oduct : Colour Stick 
Supplier : Advanced Technology 
: Products Ltd. 
: Station Road, Clowne, 
: Chesterfield, $43 4AB. 
: 0246-811585 
Price : £45.45 


There was a time when it seemed that 
everyone produced light pens for the Beeb. 
To produce a new one at this late stage 
must mean that ATPL reckons that its 
Colour Stick is a good deal better than 
the competition. 


The Colour Stick package includes some 
software. First, however, there is the pen 
itself. This is based on (or rather, in) a 
commercial felt-tip pen case in 
fluorescent green plastic, There is a 
light sensor at the nib end and from the 
other a 6 foot (extended) curly black 
cable with a plug to fit the analogue 
socket in the back of your Beeb. On the 
side of the pen body is a small square 
button used to signal to the micro. 


The whole pen is well made and the use 
of the plastic pen body means that it 
looks and feels attractive too, The real 
test of the pen, however, is how it works. 
As is true for all such devices, this is 
very much dependent on the software used 
in conjunction with the light pen. This is 
where the Colour Stick package really 
comes into its own, and justifies its 
relatively high price. 


There are three software packages that 
accompany the Colour Stick - a couple of 
games, a suite of utilities for use in 
your own programs, and a drawing package. 
These are supplied on two 40 track discs 


along with facilities to copy them onto 80 
track format. 


The two games are Pontoon and 
Solitaire and, of course, they are chosen 
from suitable menus controlled by 
light-pen. In the Solitaire game, the pen 
is used to select the counter to be moved 
and its destination. In Pontoon, the pen 
is used to select cards and change the 
stakes. However, there are considerable 
problems on å monochrome screen as the 
darker background will not trigger the 
light sensor. However, with a colour 
monitor or TV the results are impressive. 


Presumably, the ` games are only 
included to give some idea of the 
possibilities of the Colour Stick in your 
own programs and in this they do 
demonstrate the convenience of selections 
on the screen using the pen. 


To implement such  pen-controlled 
selection in your own programs you should 
use the utilities supplied with the Colour 
Stick. These comprise a suite of Basic 
procedures spooled on the disc according 
to the line numbering you choose. 


There are five of these procedures. 
These comprise the assembler code to use 
the pen, a calibration procedure, a set up 
procedure for any one of the Beeb's eight 
display modes, a procedure to return the 
pen position in character co-ordinates on 
the screen, and one to return the state of 
the pen button, The calibration is not 
essential but is recommended for accurate 
use of the pen, to accommodate differences 
between individual pens and monitors. 


The five utilities work well and 
provide a very easy interface with the 


hardware. However, like the software 
supplied with the AMX mouse, the real 
strength of this package lies in the 


drawing program supplied. 


‘Palette’ is a four-colour mode 1 
drawing program controlled totally with 
the light pen. In the central area of the 
screen the picture is created and along 
the base a menu of icons is displayed. 


The operation of the program is very 
similar to AMX Art - each drawing 
operation is selected by pointing to the 
required icon and then the position on the 
picture indicated by pointing to the 
desired area of the screen. However, the 


pointing is achieved with the light pen (a 
process even more natural and easy than 
pointing with a mouse) and there are many 
more icon menu choices than the single 
menu used with that package. 


The menus are arranged in a tree 
structure so that, for example, to draw a 
square, first the shape drawing menu is 
selected from the main menu, the squares 
menu from that and, when the square is 
drawn, various fine adjustments have their 
own menus selected from that. 


There are twenty seven menus in all. 
These cover just about every conceivable 
operation of picture creation. Lines can 
be drawn free hand or by rubber-banding, 


and squares, rectangles, polygons, circles 
and ellipses drawn in full or in part. 


A light pen cannot cope with screen 
manipulation at pixel accuracy. However, 
ATPL | get around this problem with a 
position-trimming menu used with all the 
drawing operations. Once a line or shape 
has been roughly positioned with the pen 
the trimming menu is selected and icons 
touched with the pen to shift the line or 
shape one pixel in the required direction. 


This procedure is obviously more 
tedious than, say, using åa mouse to 
position a line directly where it is 
needed. However, it is surprising how 
quickly it becomes second nature and the 
end result is always more accurate. 


Once the picture outline is complete, 
areas can be filled in with colours or a 
wide range of textures and stippled colour 
mixtures. Text can be printed on the 
picture either vertically or horizontally. 
The  typestyle of the text can be altered 
too. Three  typefaces are provided, 
including normal Beeb style, and  ATPL 
promises a further editing package to 
create your own fonts. 


The whole Palette package is, with 
practice, a joy to use. The multiple menu 
system provides great flexibility and, as 
it operates fast and efficiently, is also 
convenient and easy to use. 


The manual provided for the whole 
Colour Stick package is not a glossy work 
but it describes all the functions well. 
Although ATPL has been late in providing 
its runner in the light pen stakes, the 
quality of the hardware and the 
flexibility and complexity of the Palette 
package make Colour Stick a clear winner. 35] 


The situation often 
arises in a Basic program 
where one of a large 
number of procedures has 
to be called in response 
to some input. For 
example, a program might 
display a menu of options 
"to which the user enters 
a number or letter to 
indicate his choice. 


In a non-structured 
program, Basic's ON-GOSUB 
construction is often 
used to call up the 
appropriate subroutine on 
the basis of this index 
value. For example, sup- 
pose we have a fictitious 
Statistics program which 
has four main menu opt- 
ions. The skeleton for 
such a menu program is 
listed opposite. 


BBC Basic allows a 
further modification of 
this approach in that 


GOSUB can also be follow- 
ed by a variable or ex- 
pression whose current 
value determines the line 
number jumped to. In the 
example program, line 160 
could be rewritten as: 


160 GOSUB (1ØØ+index*1ØØ) 


This technique has to be 
used with caution as any 
renumbering of the pro- 
gram can result in the 
subroutines being given 
new line numbers, and the 
GOSUB may be directed to 
the wrong place unless 
the expression is amended 
accordingly. 


Unfortunately, in pro- 
grams which adopt the 
more preferred approach 


ith, Surac describes a routi 
es what GOSUB does for s 
up Basic is not without its dr 


| MENU PROGRAM 1 

| 100 REPEAT 

| 119 PRINT" 1 
| 120 PRINT" 2 
| 130 PRINT" 3 
| 140 PRINT" 4 
| 150 INPUT index 

| 160 ON index GOSUB 200,300 ,400,500 

| 170 UNTIL FALSE 

| 200 REM Subroutine to Enter Data 

| 299 RETURN 

| 300 REM Subroutine to Display Stats 

| 399 RETURN 

| 400 REM Subroutine to turn Printer On 
| 499 RETURN 

| 900 REM Subroutine to turn Printer Off 
| 599 RETURN 


Enter Data" 
Display Statistics" 
Printer On" 

Printer Off" 


of using named procedures there is no 
equivalent structure for accessing the one 
that is required via a Basic variable - no 
'call by reference' facility is available 
for procedures. If the name of the 
procedure we want to use is stored in a 
Basic variable called 'index$', there is 
no way of saying: 
PROC index$ 

The most usual way out is a 
statements such as: 


list of IF 


MENU PROGRAM 2 
IF index-1 PROCenter 
IF index-2 PROCstatistics 
IF index-3 PROCprinton 
IF index-4 PROCprintoff 
DEF PROCenter 


ENDPROC 

DEF PROCstatistics 
ENDPROC 

DEF PROCprinton 
ENDPROC 

DEF PROCorintoff 
ENDPROC 


This solution, and other variations on 
it, often uses up significant amounts of 
memory (particularly when a large number 
of options is involved) and is also 
inefficient. In the above example, if 
PROCenter has been selected, index is 
still tested for each of its other 
possible values. 


raserer 


A mechanism to call procedures by 
reference can, however, be implemented 
fairly easily, This routine, called here 
PROCdespatch, is a procedure which you can 
add to the end of any Basic program, and 
is shown below:. 


30010 DEF PROCdespatch (proc$) 
30020 maxlen-20 :REM longest name 
30030 procS=LEFTS (procS+STRINGS (maxlen, 
we") ,maxlen) 
30040 $(TOP-maxlen-4)=proc$+":" 
+CHRS (&E1) 
30050 PROQ* RRR * * dek # defe dede de dee * ENDPROC 


The actual line numbers you use are not 
important as long as they are higher than 
any of the others in the rest of the 
program. 


The name of the procedure that you 
actually want to call is passed as a 
parameter to PROCdespatch. In the example 
program used previously, this could be set 
up ina variety of ways, for example by 
using a DATA statement: 


160 RESTORE 

161 FOR i=1 TO index 

162 READ indexs 

163 NEXT 

164 DATA enter, statistics, printon, 
printoff 

165 PROCdespatch (index$) 


The menu option is used here to READ the 
appropriate.procedure name to be placed in 
index$ before calling PROCdespatch. 


The names of procedures passed to 


PROCdespatch may themselves include 
parameters. For example, instead of 
'printon' and 'printoff', we might have a 


single procedure to toggle the printer on 
and off and Called by parameters to 
PROCdespatch of 'print(1)' and 'print(0)' 
respectively. 


The power of PROCdespatch becomes even 
more apparent in the use of command-driven 
rather than  menu-driven programs, for 
example in a Logo graphics interpreter. 
As each command line is entered, the 
keyword at the start of the line can be 
used to call up the appropriate procedure 
directly. In outline, such a program 
would look something like the following 
listing (at the top of the next column). 


REPEAT 

INPUT LINE command$ 
keyword$=LEFTS (command$, 
INSTR (command$+" "," ")-1) 
PROCdespatch (keywords) 
UNTIL FALSE 


DEF PROCRIGHT 
ENDPROC 

DEF PROCLEFT 
ENDPROC 

DEF PROCFORWARD 
ENDPROC 


PROGRAMMING NOTES 

Within PROCdespatch, it is necessary to 
decide upon the maximum length of the 
procedure names that can be handled. This 
is assigned to the variable  'maxlen' in 
line 30020, In the example, maxlen is 
equal to 2Ø. The required procedure name 
is padded out with colons to this maximum 
length (line 30030), and then in 30040 the 
BBC Basic $ indirection operator is used 
to plant the name (together with a follow- 
ing colon, ENDPROC token and Return 
character) directly into the memory 
occupied by line 30050, The expression 
(TOP-maxlen-4) is the memory address of 
the first character immediately following 
the PROC keyword in line 30050, The 20 (or 
however many you want) '*' characters in 
line 30050 are just used to initialise the 
area that will be used by the procedure 
name when the program is run. 


To check that you have set up 
PROCdespatch correctly (and assuming 
maxlen=20) type: 

PRINT ?(TOP-24) «Return» 

This should give an answer of 42 - the 
ASCII code for an asterisk. Then enter: 


PRINT ?(TOP-25) «Return» 
and this should give a value 242 - used by 
Basic to store the PROC keyword. 


It is also safest to store your program 
before running it, as it may get corrupted 
if the despatch routine has not been set 
up correctly. If the program is interrupt- 
ed (e.g. by pressing Escape), line 30050 
should contain the name of the last 
procedure that was called. 


PROCdespatch thus achieves the desired 
effect, though some might argue that the 
technique of directly poking into memory, 
used by this 
Structured! 


routine, is less 
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Last month we saw how a sideways ROM 
reacts to a service call from the Beeb's 
OS and we introduced a program to set up a 
sideways ROM to respond to service calls ! 


and 9 (Break and *HELP), This month we 
shall be concerned mainly with responding 
to service call 4 - * commands, 


STAR COMMANDS 

When you enter a * command, the OS 
goes through a clearly defined sequence of 
actions. First it decides whether it is a 
command for the OS itself - such commands 
as *TAPE, *MOTOR and *KEY, If the command 
is not known (e.g. *DISC), then the paged 
ROMs are asked in turn (starting at number 
15) whether they recognize the command, If 
the command is still not understood, it is 
passed to the disc filing’ system (if 
fitted) to see if a file of that name 
exists. Finally, if none of these attempts 
succeed, a 'Bad Command' error is issued. 
Some filing systems, and the Master, have 
more stages than this but the principle is 
the same. Our ROM must recognize its 
* commands when offered. 


When a service call 4 is issued to the 
ROMs by the operating system, the contents 
of &F2, &F3 and the Y register indicate 
the location of the command string in 
memory,  (&F2),Y pointing to the first 
character, Each ROM inspects this area of 
memory to see if it recognizes the 
command. If not, then the ROM should 


perform an RTS with all registers and 
locations &F2 and &F3 restored. If the 


comnand is recognized, the ROM should 
respond to the call and then RTS with the 
accumulator zero. This signals to the OS 
that the command has been processed and 
need not be passed to any other ROM. 


STAR COMMAND HANDLING 
The code to interpret the command can 


be complex. A simple version appeared in 
BEEBUG Vol.4 No.6 for one-letter commands. 
Here, we introduce a complete * command 
interpreter in lines 7000-7630 of the 
accompanying program. It is complete in 
the sense that it is driven from a table 
of commands with execution addresses, and 
it responds correctly to lower case and to 


abbreviations (such as ðE. as well 
*ELITE). 
This  table-driven command interpreter 


is very similar to that used in many 
commercial ROMS such as  BEEBUGSOFT's 
ROMIT, with one addition: on successful 
recognition of the command the location 
&A8 also contains the position of the 
command in the table (Ø=lst, 1=2nd, etc). 
The command handler is in the same 
form as used last month - a procedure 
assembles appropriate code into the ROM 
listing when called. Its one parameter is 
the address of the start of the A 
This table is itself organized as: 
<command> «execution address> 
<command> «execution address> 
&00 


This must be 256 bytes or less in 
total. The command is stored in ASCII, and 
the address is stored, high byte first, 
one less than the real start address so 
that this can be placed on the stack and 
executed with an RTS (lines 75760-76900). 


THIS MONTH'S UTILITY 

The purpose of the program listed is 
to respond to a series of * commands which 
can be used to send characters to a 
printer, and so change type faces, sizes, 
styles, and so on. It does not affect the 
enable status of the printer. 


You should merge this program with 
that listed last month, as detailed then, 
to form the complete ROM generator. Again 
it fits the philosophy that each module is 
to be quite independent of the others and 
can be called at any point between 
PROCromhead and PROCendrom. Note the CLEAR 
statement at line 154; this is so that 
there is no confusion between the labels 


of the various sections, The complete 
program is on this month's magazine 
cassette/disc. 

This month's listing consists 


essentially of a call to PROCprinter and 
some DATA statements to support it. Again 


these can be very easily customized for 


your own uses, The parameters of 
PROCprinter are the line number of the 
DATA statements (12000) and a string 
("PRINTER") to support extended *HELP, so 
that the contents of the command table are 
printed out when *HELP PRINTER is entered. 


The DATA statements from line 12000 
should have the following form: 


1. The *command in upper 
(without the *). e.g. PAGE. 

2. The number of bytes this will send 
to the printer (e.g. 1) 

3. The values of actual bytes to be 
sent (e.g. 12 = new page) 


Case 


This is repeated as many times as 
required, and terminated with a null 
string DATA statement as shown. The data 


provided works well on a Taxan KP810, but 
you should consult your printer manual for 
your own custom ROM codes. 


Next month, we shall extend the ROM 
with, amongst other functions, further 
utilities to list the ROMs present in your 
machine and deflect duplicated commands to 
the right ROM. 


1Ø REM PROGRAM SIDEWAYS ROM 

20 REM Version Bl.1 

30 REM Author B.R.HILL 

40 REM BEEBUG July 1986 

50 REM Program subject to copyright 


CLEAR 

PROCpr inter (12000 , PRINTER") 
DEF PROCprinter (dataloc,helps) 
6010 OQ$-P$:R$-0$ 

6020 FOR opt-4 TO 7 STEP 3 


6030 P$-0$:0$-R$:REM for pass 2 

6040 [ OPT opt 

6050 JMP cmdhandler to cmd handler 
6060 .print the routine 

6070 LDA &A9:PHA need a couple of 


6080 LDA &AA:PHA Ø page locations 
6090 TYA:ASL A:PHA save 2 x cmd no. 
6100 LDA#&75:JSR &FFF4 printer o/put? 


6110 STX &AA:PLA:TAX ` store, restore 
6120 LDA printtable,X load code addr 
613Ø STA &A8 to A8-A9 

6140 LDA printtabletl,X:STA &A9 

6150 LDY #0 and load ascii 
6160 LDA (&A8),Y: TAX count into X 
6170 INY next code 

6180 LDA #2:JSR &FFE3 VDU 2 

6190 .sendloop | 
6200 LDA #1:JSR &FFE3 send to printer 


6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7989 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7198 
7200 


LDA (&A8),Y 

JSR &FFE3:INY:DEX 
BNE sendloop 

LDA &AA:AND H 
BNE finiorint 
LDA #3:JSR &FFE3 
.finiprint 
PLA:STA&AA:PLA:STA&A9 restore regs 


the code in the 
table until 
all sent 
printer enabled? 
yes - skip 
no — VDU 3 


PLA: TAY: PLA: TAX: PLA:STA &A8 

LDA $0 : RTS A=Ø, back to OS 
.printtable 

EQUS STRINGS (64 ,CHRS@) «232 cmds 
.ascicodes up to 256 codes 
EQUS STRINGS (128,CHRS@) in all 
EQUS STRINGS (128,CHRS@) 

.printcmds l page 
EQUS STRINGS (128,CHRS@) commands 


EQUS STRINGS (128 ,CHRSØ) 
.cmdhandler 

]:NEXT opt 

PROCcommandhandler (printcmds) 
PROCcommandhelp (help$,printcmds) 
RESTORE dataloc 

c=pr intcnds-P%+0% 
a=ascicodes-P%+0% 
p=printtable-P%+0% 

REPEAT: READ command$ 

IF command$="" THEN 6580 
Sc=command$ 

c=ctLENcommands 

?c-(print-1) DIV 256 
c?1=(print-1) MOD 256:c=ct2 
?p= (a-0%+P%) MOD 256 
p?l=(a-0%+P%) DIV 256:p=pt2 
READ n:?a=n:a=at+1 

FOR i=l TO n 

READ code: ?a=code:a=atl NEXT i 
UNTIL command$="": ENDPROC 

DEF PROCcommandhandler (cmdtable) 
Q$-P$:R$-0$ 

FOR opt-4 TO 7 STEP 3 
P$-02$:0$2-R$ 


[ OPT opt 

CMP #4 * command? 

BEO starcmd yes 

JMP notforme no - do nothing 
| Starcmd 

LDA &A8:PHA need &A8 so save 
TXA:PHA:TYA:PHA with registers 
LDX #&FF A8 will contain 
STX &A8: INX a counter 
.nextcmd 

PLA s TAY š PHA get Y back 

INC &A8:DEX: DEY inc cmd count 

. Nextchar try next char 
INX: INY in 

LDA (&F2),Y command line 
CMP #ASC"a" make upper 

BCC notle case if 


39 


CMP #ASC"z"+1 

BCS notlc:AND #&DF 
. NOtle 

EOR cmdtable,X 
BEQ nextchar 


between 
'a' and 


compare with 
command table 


BPL nomatch no, & end of cmd 
LDA (&F2),Y test if input 
BEO gotcmd char is the 
CMP 413 last in the 
BEQ gotemd command 
CMP #32 ee lf yes 
BEO gotcmd gO eo 

| noma tch 

CPX #0 make sure its 
BEQ overcmd not a *, cmd 
LDA (&F2),Y test to see 

CMP #ASC"." if its abbrev'd 
BEQ dotmatch with a U^ 

e Overcmd search on 


so that find 
the start of 
next command 


LDA cmdtable,X 
BMI eocm: INX 
JMP overcmd 


.eocm end of command 
INX : INX skip exec addr 
LDA cmdtable,X done all cmds? 
BNE nextcmd no - try next 
PLA: TAY yes restore regs 
PLA:TAX:PLA:STA &A8 

LDA #4 and A and 

JMP notforme abort 
.dotmatch ended with . 

INX SO search 

LDA cmdtable,X for the exec 
BPL dotmatch address 
egotamd 

LDY &A8 cmd into Y 

LDA cmdtable,X put exec address 
PHA 

LDA cmdtable+l,X on stack, and 
PHA: RTS execute it 
.notforme here if not 4 us 
]:NEXT opt 

ENDPROC 

DEF PROCcommandhelp (help$,cmds) 


Q$-P$:R$-0$ 
FOR opt-4 TO 7 STEP 2 
%=0%:0%=R% 


[ OPT opt 

CMP #9 help? 

BNE exithelp no. 

PHA save all 

TXA : PHA : TYA? PHA 

LDX #Ø get char after 
LDA (&F2),Y *HELP command 


BEO barehelp ends, so its 


CMP #13 *HELP alone 

BNE notalone es more to follow 
» barehelp 

LDA #32:JSR &FFE3 indent 


8160 
8170 
8180 
8199 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8319 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8479 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
12000 
12010 
12030 
12050 
12070 
12080 


,05,6, 


12190 


JSR &FFE3:JSR &FFE3 
LDY #Ø 

.hloop 

LDA help,Y 
BEQ endhelp 
JSR &FFE3 
INY:JMP hloop 
.help EQUS help$+CHRS9 


3 spaces 


and output 
help$ 


.endhelp 

JSR &FFE7 followed by CR 
JMP finihelp that's all 
enotalone message follows 
CMP #ASC"a" *HELP. So put in 
BCC nolc uppercase 

CMP #ASC"z"+1:BCS nolc:AND #&DF 


.nolc 

CMP help,X 
BNE notsame 
INX:INY:LDA (&F2),Y 

JMP notalone maybe, test more 


eo. and see if 
its our message 


.notsame not same, but 
LDA help,X maybe ended 
BNE finihelp No. Not for us 
LDX #&FF yes! So 
.helplloop print out 
LDY #0 all the 
ehelp2loop commands 


INX:LDA cmds ,X 

BMI overaddress:BEQ finihelp 
JSR &FFE3 

INY:JMP help2loop 


|Á overaddress 
INX:LDA #32 pad out to 19 
.hloop3 characters with 


INY:CPY #11 
BEQ helpl loop 
JSR &FFE3:JMP hloop3 


spaces 


.finihelp wrap up 
PLA : TAY: PLA : TAX: PLA 
.exithelp 

]:NEXT opt 

ENDPROC 


REM printer driver data 

DATA PAGE,1,12, NLO,2,27,40 

DATA PICA,2,27,80, ELITE,2,27,77 
DATA UK,3,27,82,3, US,3,27,82,0 

DATA RESET,2,27,64 

DATA TINY,19,15,27,85,1,27,83,9,27 
BIG,6,27,85,0,27,87,1 

DATA CONDENSED,4,27,85,1,15, NORMS 


IZE,11,27,50,27,85,0,27,84,18,27,87,0 


12120 


DATA BOLD,4,27,69,27,71 


12130 DATA NOBOLD,4,27,70,27,72 


12140 


DATA PERFSKIP,3,27,78,8 


12150 DATA NOSKIP,2,27,79 


12160 


DATA ITALIC,2,27,52 


12170 DATA UPRIGHT,2,27,53 


12180 


DATA TU dv 


latest release for 
ling 5 whether i in um 


Product 
Supplier 


: ViewSpell 

: Acorn Computers Ltd 

: Cambridge Technopark, 

: 645 Newmarket Road, 

: Cambridge CB5 8PD. 

: Tel. 0223-214411 

: £33.00 inc VAT (Disc only) 


Price 


The package consists of a ROM, a 
dictionary on 40 or 80 track disc, a user 
guide and reference card. The dictionary, 
reputed to contain some 70,000 words, is 
based on the Longman Concise English 
Dictionary. Acorn says every word in the 
Longman dictionary should be on the disc 
and vice versa. You cannot add to or 
change this master dictionary, but you can 
set up additional user dictionaries, 
either to extend the vocabulary of the 
master dictionary, or to provide 
specialised word lists. 


ViewSpell follows the command-driven 
approach standard with the View family of 
products, LOAD is used to load a text file 
into memory, As it does so, ViewSpell 
counts the number of unique words, which 
can be displayed with the LIST command, 
CHECK then checks these against the master 
dictionary and reports the number of words 
not found. You can also continue to check 
these unrecognised words against any 
number of user dictionaries if required. 
Because the number of unknown words at 
this stage is likely to be quite small, 
checking user dictionaries after first 
checking the master dictionary takes very 
little time. 


One useful feature at this point is the 
ability to use the LIST command to list 
the unrecognised words. In many cases this 
is sufficient to identify any real mis- 
spellings. However, if you want to correct 


these words the process becomes rather 
more tortuous. ViewSpell cannot itself be 
used to change your original text. Instead 
a separate 'marked' file can be created in 
which every unrecognised word is marked by 


two special characters. You then use your 
word processor to search through the 
marked file for the markers, editing each 
word and removing the markers as you come 
to them. 


You may well wish to add any valid 
words not recognised by the master 
dictionary to your own user dictionary. 
Such a dictionary file is easily created, 
and any number of words can be added 
directly by typing them in. ViewSpell will 
also take a word list and automatically 
present each word in turn for you to 
confirm whether or not it should be added 
to your user dictionary. 


I feel that ViewSpell loses out here in 
terms of convenience of use, The fact that 
unrecognised words may have to be checked 
twice, once when editing a marked file, 
and again when updating a user dictionary, 
will seem tedious to many. However, the 
very large number of words in the master 
dictionary should mean that additions to 
any user dictionary are quite few in 
number, unless you make frequent use of 
unusual or specialised words. 


ViewSpell  recognises 18 different com- 
mands providing several other supporting 
functions beyond those already described. 
Some of these take a little getting used 
to, and error messages can sometimes be 
confusing. As far as speed is concerned, I 
timed Viewspell against Beebugsoft's 
Spellcheck for a number of typical 
magazine files and articles. I found that 
ViewSpell took 2 to 3 times as long to 
check a text file, all be it using a 
dictionary with twice as many words as 
that used with Spellcheck. 


In conclusion, ViewSpell 
addition to the View family, 
late in the day. It 
truly massive master dictionary but is 
less satisfactory when correcting 
mis-spellings and building up your own 
user dictionaries. Although it is best 
suited to View, it works just as well with 
Wordwise Plus text files and no doubt 
those of many other wordprocessors. 


is a worthy 
if rather 
is provided with a 


k 
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Last month I 
finished our 
first look at 
the ADVAL func- 


i tion with a 
Using the short routine 
ADVAL Function which allows 

any program to 
(Part 2) check whether 
or not a 


printer is on 
line. I now 
want to look 
more closely at this and other similar 
uses of ADVAL before returning to its more 
obvious use with the analogue port. 


The program in question (repeated below. 


for convenience). uses ADVAL(-4) to 
achieve its purpose. This tells us the 
amount of free space in the printer output 
buffer. Now this may sound rather 
technical, so some words of explanation 
are called for before we continue. All 
computers have to communicate with the 
outside world in various ways. On the 
Beeb, the most important are the screen, 
the keyboard, disc or cassette and, if 
attached, a printer. Apart from the 
screen, all these devices are slow 
compared with the speed of the micro 
itself. To even things up a little, the 
micro uses a number of Hetero ` 


PRINTER TEST 
180 MODE 7:VDU23,1,0;0;0;0; 
119 IF FNtestprinter THEN 
PRINT"Printer operational" ELSE 
PRINT"Printer switched off" 


120 END 

130 : 

1000 DEF FNtestprinter 
1918 VDU2,1,0,1,9,3 
1920 | = (ADVAL (- -4) = 


A ws is m an area of memory 
allocated to the temporary storage of data 
on its way between the CPU and some 
external device. When a program is being 
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Mike Williams concludes 

s look at the ADVAL 

function by explaining the 

theory behind its less well 

im am applications and 

rovides some guidance for output more slowly direct 
ple experimenting with 
Beeb's analogue port. 


executed by the Basic 
interpreter, any printer 
output is sent not to the 


printer but to the printer 
buffer. The contents of the 
printer buffer are then 


to the printer. To some 
extent this is not very 
noticeable as the Beeb's 
6502 processor is rushing around doing 101 
things very quickly. One of these tasks is 
to see if the printer buffer has a 
character waiting to be sent, and, if the 
printer is ready, to send it. 


Sometimes when outputting to a printer, 
most noticeably when listing programs, you 
will see the screen display pause for a 
moment before continuing. This is because 
the printer output buffer is full, the 
printer being unable to extract characters 
for printing as fast as the Beeb can 
produce them, 


Let us now look at the printer test 
routine in detail to see how it works. It 
outputs a couple of null characters (so 
nothing actually appears) to the printer. 
In reality, this means to the printer 
output buffer. It then checks the number 
of free spaces in the buffer (maximum 63) 
to see whether the characters have been 
sent to the printer (printer on-line) or 
whether they are still just sitting in the 
buffer (printer off-line, or non” 
existent). 


There are a number of these buffers in 
the Beeb and the ADVAL function can be 
used to check some of them as shown 


keyboard buffer 
RS423 input buffer 
RS423 output buffer 
printer output buffer 
sound channel Ø 

sound channel 1 

sound channel 2 

sound channel 3 
Speech 1 


ADVAL (-1) 
ADVAL (-2) 
ADVAL (-3) 
ADVAL (-4) 
ADVAL (-5) 
ADVAL (-6) 
ADVAL (=7) 

| ADVAL (-8) 

| ADVAL ( 39) 


In pro case of nea bu gem - buffers 
(ADVAL values -1 and  -2), the value 
returned is the number of characters in 
the buffer, not the amount of free space. 
The numbers in brackets at the end of each 
line indicate the size of the relevant 
buffer. 


The use of a buffer also helps to 
explain how it is possible to type ahead 
of the output on the screen - all the 
input is going into the input buffer. Try 
running the So short program: 


| MODE 7 

REPEAT 

REPEAT UNTIL ADVAL(-1)>=29 
REPEAT 

C$-GET:VDU C% 

UNTIL ADVAL(-1)=Ø 

UNTIL FALSE 


After ` typing 
appears to happen. Keep typing away at the 
keyboard and after a while all your input 
will suddenly start to appear on the 
Screen. The program waits until the key- 
board input buffer contains 20 characters 
before the second part of the program 
Starting at line 130 begins . 
to extract these characters 
from the keyboard buffer 
and disolay them on the 
Screen. Once the keyboard 
input buffer is empty, the 
second part of the program 


I +5v 

2 Øv 

3 Øv 

4 CH3 

5 Analog Gnd 
6 Øv 

7 CH1 


terminates, repeating the 8 Analog Gnd 
whole | sequence from the 
beginning. If you just keep 


typing away at random, you 
will keep finding that the 
screen display does nothing 
for a while, and then 
rushes to catch up before 
going quiet again. 


Testing the input buffer can be very 
useful in games programs. If the buffer is 
empty then no action is required. If a key 
has been pressed, 
determine which key and take appropriate 
action. This saves time testing for 
several different key-presses when in fact 
none has occurred. 


The ADVAL function also allows you to 
test, in a similar way, the state of the 
four sound channels. In particular, a 
program can check that all three main 
sound channels (1, 2 and 3) are empty 
(have played all the notes previously 
issued) before sending the next sequence 
of notes to the appropriate channel. 


THE ANALOGUE PORT 

To conclude this introduction to the 
ADVAL function let's return and take a 
further look at its uses in connection 


BEEBUG JULY 1986 


RUN «Return? nothing 


8 76 5 4 3 2 


15 14 13 12 1116 9 


Analog in 


then the program can 


with the analogue port. This provides for 
a total of nine different signals as shown 
in the diagram on this page. 


One point to note here is that the User 
Guide, in describing the analogue port 
channels, refers to channels 1 to 4 but on 
the diagram (reproduced with  Acorn's 
permission from the User Guide) these are 
referred to as channels Ü to 3. As long as 
you know this you shouldn't get confused. 
The analogue port also provides, as 
output, three different voltages, Ov 
(connections 2,3 and 6), 5v (connection !) 
and VREF (connection 14). VREF provides a 
stable voltage of  1.8v which is the 
maximum that should be fed into any of the 
four input channels. The other signals 
referred to on the diagram of the analogue 
port, like the Light Pen Strobe (LPSTB), 
cannot be accessed with the ADVAL function 


and are thus beyond the 
9 LPSTB scope of this article, 
19 PBI 
11 VREF If you have a potentio- 
12 CH2 : : 
13 PBØ meter (variable resistor) 
14 VREF with a minimum resistance of 
15 CHØ about 5K handy, you can 


experiment quite easily with 
the analogue port. A poten- 
tiometer will have three 
tabs and to these you should 
solder three short fairly 
stiff wires each about an 
inch long. The wire should 
be a good push fit into the 
analogue port sockets. The 

| ‘centre wire should be in- 
m into one of the four channel inputs 
(marked CHÜ to CHI) and the other two 
wires into a Øv connection and the VREF 
connection. 


Take care to avoid using the input 
marked 5v as you may overload the analogue 
channels. In any case, a more permanent 
and satisfactory connection can be made by 


using a standard 15-way minature D-type 
connector. 
If you run the first program listed 


last month and vary the resistor you 
should see the value for the corresponding 
channel changing on the screen, A 
potentiometer used in this way not only 
provides an opportunity for some simple 
experimenting with the analogue port, but 
where more serious work is intended 
provides a simple means of testing out 
more complex software. == 


| | 29 FEB 
Cy 


Master Manuals 
I have been 


reading the 
review of the Master series 
in BEEBUG Vol.4 No.9. There 


is one item you fail to 
mention in the review, the 
fact that you have to pay 
extra for a two-part 
reference manual at £14.95 
for each part. 


To add insult to injury, 
the View and Viewsheet 
manuals must also be pur- 
chased separately for £19 
each. I find this a rather 
disturbing trend and some- 
thing of a confidence 
trick, I would be interest- 
ed in your comments. 

E.F.Lord 


of the Master 128 
kely to need these 
uals and that the 


Pagemaker not Networked 
I refer to  Pagemaker 


from AMS which is currently 
receiving good reviews (see 
BEEBUG Vol.4 No.9) and 
would add my own endorse- 
ment to the favourable 
comments made. 


However, it should be 


ee that most pur- 


t cheap. The 
al provides 
rmation for 


29 FEB , | 
SEE) 


pointed out to prospective 
purchasers that Pagemaker 
will not run on a BBC micro 
fitted | with an  Econet 
interface unless the 68B45 
chio is removed. This is 
indeed a drastic solution 
and losing a machine from 
the network is a high price 
to pay for the software. 
Any help with this problem 
would be appreciated. 
D.Hamilton 


Mastering Direct Display 
Regarding the Direct 
Display Utility in BEEBUG 
Vol.4 No.1Ø, I have discov- 
ered the Basic IV | ROM 
routines to allow its use 
on the Master 128. The 
relevant addresses are: 


printchar &BD94 
ptokens &BD37 
lineno &AØS TI 
chkgoto &9B26 
exit &8F86 


The following line MUST 
also be added: 
2085 STY &F4 
J.Spink 


Mastering Basic 

I have modified the 
Basic Extensions program 
from BEEBUG Vol.4 No.1Ø so 
that it will work on the 
Master. The modifications 
required are as follows: 


1040 IF R$ PROCbas4 
9600 DEF PROCbas4 
9610 cont=&89AE 
9620 chkend-&9BA6 
9630 phex-&BD6C 
9640 plnum-&A085 
9650 ENDPROC 


Brian Knott 


Na = 


Å Change of Mode 

On my operating system 
(0.8.1.0) the ‘mode change' 
routine starts at &CBlE and 
not, as Paul Ganney states, 
at &CBID. The correct 
address is very critical to 


the operation of the 
program. Hence, for use 
with  O.S.1.0, line 1060 
should be: 


1060 FOR N$-0 TO &D2: 
N$?&902-NS$&CB]E:NEXT 


D.R.Jupe 


A poor View 


The article ‘Getting a 
Better View' in BEEBUG Vol. 
4 No.10 explained the use 
of *FX125 for switching 
from command to text mode, 
or using a function key 


loaded with |[ (i.e. ASCII 
27). I have used these 
methods to produce various 


!IBOOT files and function 
key definitions but having 
recently changed to View3.0 
I find these instructions 
do not now work. 


K.J.Thomas 


MC ODES ES C N BREAK 


6 a 


mode 7 by way of *FX255 and 


the keyboard links, another. 


is to press. „Several 
|^ keys _ while Ctrl-Break 


method 


executed. For the 6 PG 


‘modes these are as follows. 


A previous  *FX255 ` or 
Xnon-default keyboard link 
set tings will alter them. 


Mode _ 


Keys with Break 

9 Gee acess Return 

1 Ctrl-A-@: 

2 Ctrl-A-@-Return 
TBN Ctrl Asa 

4  .. Ctrl-A-:-Return 

5  Ctrl-A-: 

6. Ctrl-A-Return 


..L. and R. Watts 


To include E | paged 
facility - in the Wordwise 
Plus preview mode  (ootion 


7), add a. Gal ‘to a segment _ 


cat the top of the document 
«and put. othe 


IF ?&EC- 164 Tv. 


| Briefly _ pressing '7' from | 
the menu will give a normal 


preview ` whereas 
"your 
for a little longer 

display. the. document | 


paged mode, ` 


keeping 


FE CO 


| *copy and *COMPACT must 

usually be used with great 
"cate as they corrupt mainm pr 
will” lord Hbi 
up the field 
(the, -comma - jin ^ 


MEE and any program 


This can be avoided: IB Hi 
ES aite ing the OS high water ` 


e page 
the. FORME 
mode. used after a Break can... 
be altered from the X usual. . 


WORDWISE PAGED PREVIEW 


following ` 
| program. into M Segment: | 


finger on the '7' key à 
es 


+ Abe FASO 


OPY í AND COMPACT 2 | 
| with COUNT) is only. kept in 
One _ byte. 


255 SN 


mark. This marks the memory 
below which 
| such disc operations will 
not affect, Use: 


number 


*FX180,N 


to alter the OSHWM to page. 
N, To restore it to &1900 ` 


(=page 25) use: 
*FX180 725 


COLOURFUL REMARKS 


To brighten up a 
listing and to increase its 
readability teletext colour 
codes (accessed with Shift 
and the function keys) can 
be included in REM 
statements. So that Basic 
will not interpret these as 
keyword tokens, the colour 
code should be preceded 
(though not necessarily 
followed) with a quote ("). 

Jonathan Temple 


TROUBLE WITH PRINT 


To print a table of 


numbers occupying the whole 
Screen width requires that 
the last print item be 
followed with a ';' to 


avoid extra line feeds, 
I.e.? 
10. MODE 7 


` 20 FOR I=1 TO 20 
. 30 PRINT I,I,I,I; 
. 40 NEXT I 


Unfortunately a bug in 
such a- 
table has an offset every 
(Try it!);. This’ os 
is because the tally on how 
many characters have been 
since the last new 


Basic means that 


few lines. 


printed 


line ` (accessed in Basic 


double spaces 
Better, but 


DAYS IN THE B 


solution is to do a WIDTH40 


(or 80) before printing to 


force. a new line (and reset 
COUNT) | 


after each line on 
the screen has been 
printed. However, this just 
the table. 
inelegant, is 
to reset COUNT after each 
Screen line. As COUNT is a 
read-only variable this 


must be done by poking: 


35 ?8lE-0 ` 
A more legal solution. is to 
use a separate PRINT 
statement for each Ikon: 
30 PRINT I;:PRINT I;:PR 
IND TT: «PRINT TS pem 
K.H. Kraig 


JONTH — 


The | following short 
function returns the number 
of days in month M in the 
year Y. i ane 
3Ø+ABS ((M>7)+(M AND 1)) 
+ (M= tate AND 3)=Ø)) 

Frank i 


DEFINITION HIGI IL 


The. following. x ces 
once run, can be deleted 
and function key zero will 
then list any program in 
memory and. highlight. alli 


the procedure and Function, 


definitions: ` 

1Ø FOR palis: TO 1:P%= 789 
900: [OPT pass*2 ` 
20 PHA:LDA &74:BEQ co: LD 


A HØSSTA &74:LDA #13Ø:JSR & 
FFEE:BNE rt:.co LDA &37:CMP 

#8DD:BNE rt:INC &75:LDA &7 
TEL CMP #3:BNE rt:STA &74: LDA 


HØ:STA &75:.rt PLA:JMP (87 


When. more Ix ]: NEXT pass ae 


M 39 *KEY o 1870-8208: 187 


--4-0|M?&20E-0: ?&20F=9 |MMODE7 È 
NE hi n &20E-1 ! RT vello 


NTS ASS 


member when tenpin bowling was 
| thie rage? Alex Kang's well written 

gram allows you to recapture all 
the excitement of yesteryear in this 
authentic implementation. 


Tenpin bowling brings the thrill and 
action of the real game right into your 
own home. Now you don't need to sneak out 
at nights, making excuses, just to get 
away to the local bowling alley. 


The computer version of Tenpin Bowling 
is presented as a three dimensional view, 
looking down the bowling lane, complete 
with drains and neighbouring lanes on both 
sides. Above the pins is the status board 
showing the plan view of the pins (i.e. 
from the top down) which makes it easier 
to see which pins have fallen (all bowling 
alleys are equipped with this - whether 
they work or not is a different matter). 
The ball may be positioned using the '«' 
and '»' keys. To bowl, simply press the 
'Z' key (for left spin) or the 'X' key 
(for right spin). There is a random factor 
which alters the amount of spin slightly, 
So that the ball will not always travel 
the same path even when bowled from the 
same position. Altering the random factor 
(RF$) to 4 in line 11Ø will make the game 
` slightly harder. 


The scores Of both players are 
constantly shown on the scoreboards on 
both sides of the screen, one scoreboard 
for each player. Scores for each bowl are 
noted in red, and the total score for each 
ball in black. These are automatically 
tallied at the end of the game to produce 
the total score. A strike is denoted by an 
"X" mark, and a spare by a "/" mark. Extra 
balls are given for strikes or spares 
scored on the tenth ball. For those of you 
not familiar with the scoring in this 
game; a strike (all pins down with first 
bowl) will score 10 + (score of next two 
bowls). A spare (all pins down with both 
bowls) will score 1Ø + (score of next 
bowl). Other scores are added as normal. 


As the program is fairly long and in 


mode 1, disc users should set PAGE to 
&13ØØ (type PAGE-&1300 <Return>) before 
typing in and running the program. 


PROGRAM NOTES 


The main variables, procedures and 
functions are listed below: 
$ .  - ball 
BS - ball definition 
$ =- no. of extra balls 
F$ = no. of fallen pins 
F% () - pin status (down/upright) 
$ - position of first pin hit 
$ - player 
PS - pin definition 
S% () - individual bowl scores 
sy () - plan view pin y-coordinates 
T$ () - total score of players 
WS - - wipe pin definition 
X$,Y$ — ball coordinates 
X$,Y5$() - 3-D pin coordinates 
x$ - amount of spin 


PROCinit - initialise arrays etc. 
PROCset 

PROCdraw - sets up screen display 
PROCplot 

PROCms - plays tune on miss 
PROCpins - draws pins 

PROCbowl - bowls the ball 

PROCip  - position and bias inputs 
PROCmvb = moves ball position 
PROCpt  - checks for a hit 
PROCchit - checks first pin hit 
PROCfall - wipes away hit pins 
PROCrnd -— controls which pin falls 
PROCrs -= resets all pins upright 
PROCscore- adds up total score 


TO ima ii 
Lð E Ls 


PROCex - extra balls and bowls 


PROCstr - strike message & sound 
PROCspa = spare message & sound 
PROCmu  - victory fanfare 

PROCdb  - double height printing 
PROCps -= prints score 

PROCd - timing delay 

FNst - calculates strike score 


ED. - cae e score 


19 REM qum TENPIN BOWLING ` 
20 REM Version Bl.Ø 
30 REM Author Alex Kang 
40 REM BEEBUG JULY 1986 


50 REM Program subject to copyright 


60 : 


199 ON ERROR MODE7: REPORT: PRINT" at li 
ne "s ERL: END 


119 MODE1:RF3%=3 

120 VDU23,1,05 05 0; 0; 

130 PROCinit 

140 PROCset 

150 VDU19,0,2;0;19,3, 6; 0;19,1,7;0;4 
160 FORB% -1TOl Ø 

170 FORP%=1TO2 


180 PROCrs:53%(P3,1,B3%)=F%:a$=STRSF3%:PR 
OCps (Ø) 


19Ø IF F%=Ø PROCms 
2ØØ IF F%=1Ø PROCstr:GOTO24Ø 


21Ø IF F$«10 PROCbowl:S%(P%,2,B%)=F%-S 
;B%) ) š PROCps (1 


$ (P$,1,B%) saS=STRS (SS (P$,2 


):IF S$(P$,2,B$)-0 PROCms 


220 IF F$-10 PROCspa 
230 IF F$«10 aS=STRS(F%) 
240 PROCps (2) 


250 NEXT, 
260 PROCscore:n$z"]" 


270 IF T$(1)«T$ (2) n$="2" ELSE IF T$(l 
)=T% (2) PRINTTAB (18,20) "DRAW!'":GOTO290 

280 PRINTTAB(16,2Ø) "PLAYER "+n$;TAB(18 
, 21) "WINS!" 


3UG JULY 1986 


290 PROCmu:PROCAb ("Game Over",15,24) 
300 PRINTTAB(15,27) "PRESS SPACE" 
310 REPEATUNTILINKEY-99:*FX15,1 
320 CLS: GOTO140 
330 END 
340 : 
1900 DEFPROCinit 
1919 DIM X$(10),Y$ (10) ,sy (19) ,S$ (2,2,12 
) (FS (19) , T$ (2) 
1020 ENVELOPE1,1,19,20,-39,19,5,15,127, 
-2,0,-1,127,100 
1030 ENVELOPE2,3,0,0,0,0,0,0,127,-10,—5 
,72,120,120 
1949 ENVELOPE3,5,0,0,0,6,3,3,127,—5,-5, 
-5,12Ø,6Ø 
1050 FORI3=1T019:READ X$(I$2),Y$(I$),sy( 
IS) : NEXT 
1968 VDU23,224,0,24,60,60,24,24,60,60,2 
3,225,126,126,126,126,60,60,0,0,23,226,0 
,0,0,0,24,24,0,0,23,227,0,0,24,60,60,24, 


9,0,23,229,112,112,62,63,63,63,30,0,23,2 


30,14,14,124,252,252,252,120,0,23,231,60 
„94 „191 ,191, 191, 255, 126, 60 


| "1070 B$=CHR$231: PS=CHRS1 8+CHRSO+CHRS14C 


HR$2244CHR$10-4CHR$84CHR$2254CHRS$184CHRS0 
+CHRS2+CHRS$8+CHRS1 1 4CHR$226 :WS-CHRS184CH 
RS$34CHRS$14CHR$2244CHRS$10-4CHR$84CHRS$2254C 
HR$18+CHRS$9+CHR$0+CHRS8+CHR$11+CHR$226 

1989 ENDPROC 

1090 : 

1199 DEFPROCset 

1118 PROCdraw 

1129 COLOUR131 :COLOUR2: ?8&DØ=2: PRINTTAB ( 
0,31) "KEYS: <,>: Move ball; Z,X: Bias & 
Bowl  "s;:PROCdb(" Beebug Bowl "16, 
Ø) sCOLOUR1 32 :COLOUR1:7?8DØ=Ø - 

1130 PRINTTAB(0,0)" PLAYER | ":PRINTTAB 
(39,0)" PLAYER 2 ":PRINTTAB (Ø,28)" SCORE 
=  "SsPRINTTAB(30,28)" SCORE- "COLOUR 
130: PRINTTAB (0,2) "Ball Score"TAB (30,2) "B 
all Score" 

11460 COLOUR! 31 :COLOUR2: PRINTTAB (Ø , 1) SPC 
10; TAB (30,1) SPC10 

1150 FORIS=1TO1Ø:A%=1%*2+2: PRINTTAB (1,A 
%) ; I 8; TAB (31 ,A%) ; I$: NEXT :COLOUR128 

1160 VDU5:GCOL£,128 

1179 ENDPROC 

1180 : 

1199 DEFPROCms 

1200 FORw-13TO5STEP-4:SOUND1,2,w,6:NEXT 

1219 ENDPROC 

1220 : 

1230 DEFPROCdraw 

1240 RESTORE1380 

1250 FORI$-0TO3:VDU19,I$,0; 0; : NEXT: GCOL 
0,130:VDU24,3290; 704; 956;1023;16,26 
1260 PROCplot (16,1) :PROCplot (16,3) : PROC 
plot (4,Ø) : PROCplot (21,2) :COLOUR129:VDU28 
,9,31,9,0,12,28,30,31,39,0,12,26 


47 


1270 ENDPROC 

1280 : 

1299 DEFPROCplot (J%,C%) 

1300 GCOLØ,C%:FORIS=1TOJ%:READK%,X%,Y%: 
PLOTK3,X3%,Y%: NEXT 

131Ø ENDPROC 

1320 s 

1330 DEFPROCpins 

1340 VDU5:FORI3=1TO1Ø:MOVEX3 (13) ,Y$ (I2) 
: PRINTPS:GCOLO, 1 :MOVEX$ (13) ,sy (I2) : PRINT 
CHRS227:NEXT 

1350 ENDPROC 

1360 : 

1370 DATA640,584,816,620,624,848,660,62 
4,848,600,664,880,640,664,880,680,664,88 
0,576,704,912,620,704,912,660,704,912,70 
4,704,912 

1380 DATA4,400,0,5,464,0,85,498,704,85, 
530,704,4,846,0,5,910,0,85,772,704,85,80 
4,704,4,224,0,5,320,0,85,434,704,85,466, 
704,4,990,0,5,1086,0,85,836,704,85,868,7 
04 | 

1390 DATA4,320,0,5,400,0,85,466,704,85, 
498,704,85,466,940,85,498,940,4,910,0,5, 
990,0,85,804,704,85,836,704,85,804,940,8 
5,836,940,4,320,752,5,956,752,85,320,940 
,95,956,940 

1499 DATA4,498,768,5,804,768,85,498,928 
, 85,804,928 

1419 DATA4,320,0,5,466,704,4,990,0,5,83 
6,704,4,320,704,5,956,704,4,320,940,5,95 
6,940,4,498,768,5,804,768,5,804,928,5,49 
8,928,5,498,768,4,320,0,5,320,1023,4,956 
,0,5,956,1023,4,400,0,5,498,704,4,910,0, 
5,804,704 

1420 : 

2000 DEFPROCbowl 

2019 PROCip 

2020 REPEAT 

2030 GCOL3,2:MOVEX%,Y%:PRINTBS:Y%=Y%+y% 
:X$-X$4 x$:MOVEX$,Y2$:PRINTBS 

2040 IF Y%<526 PROCd(4) 

2050 IF (Y$»=526 AND X%>=53Ø AND X%<=74 
Ø) PROCpt (X$,Y2-8) : PROCpt (X3+28,Y%-8) : PR 
OCpt (X3+12,Y%) 

2060 UNTILY%3>728 

2070 MOVEX$,Y$:PRINTBS 

2080 ENDPROC 

2090 : 

2100 DEFPROCrs 

2110 FORIS=1TO1Ø:F% (1%) =FALSE: NEXT: F3= 
: PROCpins : PROCbowl 

2120 ENDPROC 

2130 : 

2140 DEFPROCps (b12) 

2150 SX$--4*(P$-1 AND bl%<2)-34*(P%=2 A 
ND b1$«2)-7*(P$-1 AND bl%=2)-37*(P%=2 AN 
D bl$-2):SY$-B$*2-2* (b13<>1 ) —3* (b1$=1) 3V 
DU4 COLOUR] 29: c01%=-2*(b1%=2) :COLOURc01% 
: PRINT TAB (SX%,SY%) ; a9: VDU5 : PROCd (50) 


2160 ENDPROC 


2170 : 

2189 DEFPROCd (D3) 

2190 TIME=0: REPEATUNTILTIME>D% 

2209 ENDPROC 

2210 s: ` 

2220 DEFPROCpt (J$,K$) 

2230 IF POINT (J%,K%)=3 PROCchit 

2240 ENDPROC 

2250 : 

2260 DEFPROCchit 

2270 RESTORE1370:N$-0:C$-20:H$-0 

2280 REPEAT: C%=C%+1 : READ JA 
2298 N$--C$*((J$5-xl$ AND J%<=x1%+28) A 
ND (K3>=y1 3-52 AND K$ ei 
2300 H$-(N$»0):UNTILH$ OR C$-1 
2310 IF H$ AND F$(N$)-FALSE F$-F 
ND0,2,5,1:PROCfall: PROCrnd 

2320 ENDPROC 

2330 1 

2340 DEFPROCfall 

2350 F$(N$)-TRUE:MOVEX$,Y$:GCOL3,2: PRIN 
TB$:MOVEX$ (N2) ,Y% (N$) : PRINTWS : GCOL3 , 2: MO 
VEX$,Y$:PRINTBS: GCOL3, | :MOVEX$ (N$) , sy (N$ 
) : PRINTCHRS227 

2360 ENDPROC 

237Ø : 

2380 DEFPROCrnd:m%=RND (2) : IF N%>6 ENDPR 
OC 

2390 REPEAT:N3=N%-1*(N3=2 OR N3=3)-2* (N 
$-4 OR N3=5 OR N%=6)-m%*(N%<7)sIF F%(N%) 
-FALSE PROCfall:F%=F%+1 

2400 UNTILN%>6 

2410 IF NOT (F%(1)=-1 AND F$(2)--1 AND 
F$(3)2-1) GOTO2440 

2420 FORN$-4TOl0:IF RND(RF$)-1 AND F$(N 
$) "FALSE PROCfall:F%=F%+1 

243Ø NEXT 

2440 ENDPROC 

2450 : 

2460 DEFPROCip 

2470 GCOL0,2:MOVE532,360:PRINT"Player " 
;P$:GCOL3,2:X$2640:Y$264:MOVEX$,Y$: PRINT 
BS: bx3=X%: by3=Y%:*FX15,1 

2480 REPEAT 

2490 IF INKEY-103 bx%=bx%+4*(bx%>44Ø) :P 
ROCmvb 

2500 IF INKEY-104 bx%=bx%-4*(bx%<84Ø) :P 
ROCmvb 

2519 UNTILINKEY-67 OR INKEY-98 

2520 MOVE532,360:PRINT"Player ";P$:u$- 
ND (2) : x$-u$ *INKEY (-98) -u$*INKEY (-67) : yo= 
16 

2538 ENDPROC 

2540 : 

2550 DEFPROCmvb 

2560 MOVEX%, 64: PRINTBS:MOVEbx’ , 64: PRINT 
BS: X$-bx$ 

2570 ENDPROC 

2580 : 


R 


2590 DEFPROCscore 

2600 FORP$-1TO2:IF S%(P3,1,19)=19 PROCE 
x (2) 

2610 IF Sö (P$,1,190)«10 AND (S$(P$,1,19) 
+S% (P$,2,10) 210) PROCex(1) 

2620 NEXT 

2630 FORP%=1T02:T%(P%)=Ø:FORBS=1TO1Ø 
2640 IF S%(P%,1,B%)=1Ø T$ (P%)=T% (PS) +FN 
st 

2650 IF S%(P%,1,B%)<1Ø AND (S5%(P%,1,B%) 
*S$ (P$,2,B$)-10) T$(P$)-T$ (P$) *FNsp 

2660 IF S%(P%,1,B%)+S% (P$,2,B2$)«10 T$ (P 
Z) =T% (P%)+5% (P$,1,B2) +5% (P$,2,B*) 

2670 NEXT:VDU4,26:COLOUR128:COLOUR2: PRI 
NTTAB ( (P$-1) *3Ø+7,28) ; T$ (P$) : NEXT 

2680 ENDPROC 

2690 : 

2700 DEFPROCex (E3) 

2719 PROCrs:S$ (P$,1,11)2F$:B$2-11 

2720 IF F$-10:PROCstr:PROCps (2) 

2730 IF E$-1 AND F$«10 aS=STRS (F%) : PROC 
ps (2) 

2740 IF E$-1 ENDPROC 

2750 IF F%<1Ø PROCbowl:S$ (P%,2,11)=F%-S 
$(P$,1,11):IF F$-10 THEN PROCspa:PROCps( 
2):ENDPROC ELSE IF F%<1Ø aSzSTRS(F$):PRO 
Cos (2) š ENDPROC 

2760 B%=12: IF F$-10 PROCrs:S$(P$,1,12)- 
F$:IF F$-10 PROCStr: PROCps (2) : ENDPROC 
2770 aS=STRS (F$):PROCps (2) 

2780 ENDPROC 

2790 : 

2800 DEFPROCstr 

2810 MOVE532,880: PRINT"STRIKE!":SOUNDI, 
1, 1ØØ,2Ø: PROCd (80) : GCOLØ ,02MOVE532,880: P 
RINT"STRIKE!":a$="X" 


2820 ENDPROC 

2830 : 

2840 DEFPROCspa 

2850 MOVE566,880: PRINT"SPARE": SOUND] ,2, 
165,5:SOUND2,2,191,5:SOUND1 ,2,129,5:SOUN 
D2,2,69,5: PROCd (80) : GCOLO , 0: MOVE566 , 880: 
PRINT"SPARE":a$z"/" 

2860 ENDPROC 

2870 : 

2880 DEFFNst | 
2890 IF S%(P%,1,B%+1)=1Ø:=2Ø+5% (P$,1,B$ 
+2) j 

2900 =5%(P%,1,B%3+1)+5%(P%,2,B%+1)+1Ø 

2910 : 

2920 DEFFNsp 

2930 =1Ø+5%(P%,1,B%+1) 

2940 s 

2950 DEFPROCdb(s$,k,1) 

2960 A$-&A:X9$-0:Y$-&A:D-&A00:FORn-lTOLE 
NsS:bS=MIDS (S$ ,n,1) : ?D=ASCbS:CALL &FFFl: 
VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D? 
4,23,241 ,D?5,D?5,D?6 ,D?6,D?7 ,D?7 ,D?8 ,D?8 
: PRINTTAB (k+n,1) ;CHR$240; TAB (k+n, 1*1) ; CH 
RS241 : NEXT 

2970 ENDPROC 

2980 : 

2990 DEFPROCmu 

3000 RESTORE3030 

3010 FORn$-1TO7:READnl$,n2$,d$: SOUND&19 . 
1,3,n1$,8$:SOUND&1902,3,n2$,d$: NEXT 

3020 ENDPROC 

3030 DATA149,129,4,129,117,2,129,117,2, 
133,121,4,129,117,8,145,81,4,149,101,8 


k. 


MANDELBROT GRAPICS (BEEBUG Vol.5 No.1) 


This program regrettably suffered from two bugs. 


Line 1095 appears to call a non- 


existent procedure PROCbnd. This line was itself a late correction to the program, and 
the further problem can be resolved by adding the line: 


1665 DEF PROCbnd 


In addition, line 1940 contains 4 invisible teletext control character that did not 
appear when the program was listed. You will need to type *FX4,1 «Return? and then 


re-enter this line as follows: 


1940 IF INSTR("abcdLR",AS$)-0 AS=GETS : ENDPROC 


where ‘a’ means press ‘cursor left',  'b' 


means 'cursor right', 'c' means 'cursor up' 


and 'd' means 'cursor down'. This will ensure the correct codes are entered. 


SOFT SCREEN SHUFFLE (BEEBUG Vol.5 No.1) 


This program also encountered some hiccups in getting into the magazine. The 
'.shrink' above line 1090 was missing its line number and should, of course, read '1080 
.Shrink'. Lines 1230 and 1310 order the stack operations incorrectly, though this does 
not appear to effect the working of the program. The correct versions are: 


1230 PHP: PHA: TAX: PHA: TAY : PHA 
131Ø PHP: PHA: TAX: PHA: TAY: PHA 


Finally, line 1490 should read P%?4=&FF. Again, we do apologise for these errors. 
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Cassette subscriptions can be commuted to disc subscription on receipt of 
£1.70 per issue of the subscription left to run. 


All subscription and individual orders to 
BEEBUG, PO BOX 109, St. Johns Road, Hi 


This offer is limited to one disc per household/institution 


Please send me a “free” disc, f : / EDI 
| enclose a cheque for £2.50/Please debit my Barclaycard/Access No. m [HT] | | | | ii s 


OR I also enclose an order for software, please charge only £1.50 


Name 


| Send to: 
Address | Beebugsoft, 
PO Box 109, 


| M High Wycombe, 
Specify 40 or 80 Track | Bucks., HP40 8NP 


